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PREFACE 


It is well known, that the COMMODORE 64 home 
computer is well suited for entertainment programs. 
Games available run from simple BASIC programs 
performing word games to complex machine language 
programs accomplishing the most sophisticated 
graphics and sound run on computers of that size. 

The purpose of this book is to show you different 
and more profitable ways to use your COMMODORE 64. 

The programs listed and described in this book are 
meant to serve the small businessman. The programs 
range from mortgage calculations over bargraph to 
a checkbook balancer. 

At the end of the book you will find a listing of 
a complete business package program which does the 
job of Larger programs. These programs would have 
cost tens of thousands of doLlars only a few years 
ago. 

This program (called BUSIPACK) combines invoice 
writing, mailing List, and inventory control. The 
three separate parts interface with each other. 
This allows the invoice writing part to retrieve 
addresses from the mailing List file and products 
from the inventory control file. The most 
sensational feature of the BUSIPACK system is that 
the inventory file is automatically updated by the 
invoice writing part ! 


HAPPY PROGRAMMING 



Here are some samples of the cursor control and color caracters. 


4 

5 

6 
f 
8 

9 

10 
11 
12 

13 

14 


PRINT’ 

PRINT’ 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT- 

PRINT 

PRINT- 

PRINT 


SESSSBSsj" 

IXETIT 

IBflflS!" 

xuuuur 

Trim" 

aaaaa" 


CURSOR HOME 
CLEAR HOME 
CURSOR RIGHT 
CURSOR 
CURSOR 
CURSOR 
<CTRL> 

<CTRL> 


: REM 
: REM 
: REM 

■ REM 
: REM 

■ REM 
: REM 
: REM 

HSTOHM" ■ REM 

"WTOM" : REM <CTRL>-<3> 

"FOR OTHER COLORS SEE MANUAL 


LEFT 

DOWN 

UP 

-CRVS 

-CR'v'S 


0N> 

OFF> 


•CCOMMODORE KEV>- 


4 „ 


fiiiiii" 

m wrj w rwqwm iin 

" a|a|s3|a|ar 


REM <CTRL>~<6> 
REM <CTRL>~<7> 
REM <CTRL>-<2> 


The listings were printed with a Commodore VC1525 printer. The 
line width was limited to 42 characters per line. Please take this in 
account when you count spaces and cursor control characters, or 
when you try to identify color characters. Use the following 
figure to count the characters. 


.. l i i 1 11 n II m 1 1 1 1 n i n 11 

123456789012345678901234567890 
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Because it is not always easy to identify the control characters in a BASIC 
listing, we put together a summary of the C-64 cursor control characters. 


ASCII PRINTS 

DESCRIPTION 

146 5! 

Reverse Off 

Use CTRL key 

18 M 

Reverse On 

Use CTRL key 

3 m 

RUN/STOP 


147 H 

Clear 

CRL 

i9 m 

Home 


145 He] 

Cursor Up 


1 

Cursor Down 


157 || 

Cursor Left 


29 Q] 

Cursor Right 



148 


Insert 





Depreciation 


This program calculates depreciation in four 
different methods : 

1. Straight line 

2. Double declining balance 

3. Sum of the year digits 

4. 150% declining balance. 

Year, month, and depreciation amount for each 
method are listed on each line, providing a good 
layout for comparison of methods. The program 
gives a choice of monthly or annual amounts. 



AMT OF INVESTMENT* 300 




1980 
CUM DEP 
UNDERR BflL 


93.33 
93.33 
606.67 


213.83 
486.67 


160 
540 


1981 
CUM DEP 
UNDERR BflL 


233 . 

466 . 


448 


173.33 

293.34 


192 


CUM DEP 
UNDEPR BflL 


140.8 

588.8 

111 . 2 


134.4 
213.6 


CUM DEP 
UNDEPR BflL 


140 
513 . 33 
186.67 


80.48 


1984 
CUM DEP 
UNDEPR BflL 


140 

653.33 

46.67 


1985 
CUM DEP 
UNDEPR BflL 


0 

700 


700 

0 


1 




100 REM DEPRECIATION 
105 OPEN1,4,0 

110 DEFFHR < X > = I NT < X* 100+. 5 ) /100 : PR I NT " □" = P 
PINT 

120 PRINT"THIS PROGRAM COMPUTES DEF'RECIATI 
ON BV" 

130 PRINT"MONTHS, BV STRAIGHT LINE, BV DOU 
BLE" 

140 PRINT"DECLINING BALANCE, SUM-THE-VEARS 
-DIGITS" 

150 PRINT"AND 150 PERCENT DECLINING BALANC 
E" 

160 PRINT- 

170 PRINT"DO VOU WANT MONTH BV MONTH BETAI 
L < V/N ') " : INPIJTV* 

180 PRINT- 

190 INPUT"AMOUNT OF INVESTMENT ";ll 
200 PRINT- 

210 INPUT"SALVAGE VALUE ";S1 
220 PRINT- 

230 INPUT"DEPRECIABLE LIFE <VEAR3> ";L1 
240 PRINT- 

250 INPUT"MONTH AND VEAR INVESTMENT MADE " 
fll, A9 
260 PRINT- 

280 PRINT#1,"AMT OF INVESTMENT™ " ; 11; " 
SALVAGE® ";S1, 

298 PR I NT# 1," DEF’R LIFE® ";L1 

300 PRINT#1-PRINT#! 

310 PRINT#1," DATE"," STRLINE"," DDB"," 
SVD","150/DB" 

314 PRINT#1,"- 

_ _,_ mm.**.** _1! j 

316 PR I NT# 1,"--- 

...It 

320 PRINT#1 

340 D1==(<11-S1>/L1>*(1-A 1/12> 

350 D1*FNR<D1> 

360 Q1*D1 
370 F2*0 

380 D2* 2/L1 > * 11 * <1 -A 1712 > 

390 D2-FNR<D2> 
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400 Q2-D2 

410 D3= < a 1 -S1) * a -fl/ 12 > * < 2*L 1 > ) / ( < n +1 #L 
1) 

420 D3=FNR < D3 > 

430 Q3-B3 

440 D4= C1.5/L1> *11* <1-A1/12 > 

450 B4~FNR<B4) 

460 Q4*D4 

470 m*ni/a2-fli> 

480 M2*B2/<12-R1> 

490 M3-D3/<12-fll> 

500 M4“B4/<i2-fi1> 

505 M1-FNR<Ml):M2-FNR(M2>:M3*FNR<M3>:M4-FN 
R(M4) 

510 K 1 *LEN ( STRt (M 1 >) •K2-LEN <STR$<M2 >>: K3=L 
ENCSTR*CM3>>:K4*LEN(STR*(M4)> 

520 IFV$="N"THEN580 
530 FORMER1TO12 
540 priht#i,k; 

55© PRINT#1,SPC<13-K1>;M1;SPC <15-K2> ; M2; 
560 PRINT#1,SPC(15-K3);M3;SPC(12-K4 >;M4 
570 NEXTM 
580 OOSUB1330 
590 K-K+l 

594 PR I NT "PRESS SPACE BAR FOR " K 
596 QETW* : IFW$»""THEN596 

60© m=ai-sn/Li 

610 IFK<(A9+L1> THEN670 

620 B1=I1-S1-Q1 

630 IFB1>1THEN680 

640 B1*0 

650 M1=B1/A1 

660 GOT0680 

670 M1=B1/12 

680 B2= <2/L 1> *(11-Q2> 

690 IFK>A9+L1THEN850 
700 IFV<1THEN790 
710 IFF2>0THEN780 

720 E2“<11-S1~Q2>/<R9+L1~K+ <A1/12)> 

730 IFV=1THEN760 
740 IFRXVTHEN790 
750 GOTO770 
760 IFB2>E2THEN790 
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770 F2=E2 
780 B2=F2 

780 I FB2<C*11 ~S 1 ~Q2 ) THEN830 

800 B2=I1-S1-Q2 

810 IFB2>1THEH830 

820 B2“0 

830 ri2=B2/12 

840 GOT0880 

850 IFB2>1THEN870 

860 B2«0 

870 M2=B2/fll 

880 P3= < 11 -S1-Q3 > *2* < R9+L 1 -K+ <! R1/12 > > 

890 P4« ( R9+L1 -K+ 1 >*< R9+L 1-K+ < R 1/6 >> 

900 B3=P3/P4 

910 IFK<<R9+L1>THEN960 

920 IFD3>1THEN940 

930 B3~0 

940 M3=B3/fll 

950 GOT0970 

960 N3-B3/12 

970 B4- (1.5/L1>* C1 1-04 > 

980 IFK-CR9+L1 THEN 1060 
990 IFK=R9+L1THEN1020 
1000 B4*0 
1010 GOTO1100 
1020 IFB4>1 THEN 1040 
1030 D4=0 
1040 ri4=D4/fil 
1050 GOTO1110 

1 060 I FB40 11 -S1 -04THEN 1080 

1070 B4=11-S1-04 

1080. I FB4> 1 THEN 1100 

1090 B4*0 

1100 M4=B4/12 

1110 B1 “FNR < B1 > : B2~FNR < B2 > : B3--FNR < B3 > : B4=F 
NR<B4) 

1115 K1 “LEN < STR* < B1 > > : K2=LEN < STR* < B2 > ■' : K3* 
LEN < STR$ < B3 ) > : K4=LEN < STR $< D4 )> 

1120 FORM®1TO12 

1130 IF <1 1 -8 1 -01 > >1 THEN1150 

1140 fl 1 =0 

1150 Q1*Q1+M1 

1160 IFCl 1~S1-02>>1THEN1180 
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1180 Q2=Q2+M2 

1190 IF(11-S1~Q3>>1THEN1210 
1200 113=0 
1210 03=03+113 

1220 IF a 1-S1-Q4>>1THEN1240 

1230 114=0 

124© Q4=Q4+M4 

1250 IF"N"THEN1300 

1260 111 =FNR < M1 > : N2=FNR c; M2 > : M3=FNR ( M3 > : M4=F 
NRCM4) 

1265 K1 =LEN < STR$ < M UM K2=LEN < STR$ ( M2 > > : K3= 
LEN< STR$(M3>>:K4=LEN<STR$<M4 > > 

1270 PR I NT# 1.. K j "/MM; 

1280 PR I NT# 1, SPC U 3-K1 > ; M1SPC C 15-K2 > M2 
12.90 PR I NT# 1, SPC < 15-K3 > ; M3; SPC < 12-K4 >; M4 
1300 NEXTM 
1310 GOSUB1330 
1320 GOTO1580 

1330 K1 ®LEN < STR$ < BUM K2=LEN < STR$ < D2 ) > : K3* 
LEN ( STR$ ( B3 ) > : K4=LEN < ST'RT ( D4 > ) 

1340 PRINT#1 

1350 PR I NT# 1, K; " "SPC < 13-K 1 > i B1; SPC C 1 

5-K2);B2; 

1360 PR I NT# 1, SPC < 15-K3 > ; B3 J SPC C 12-K4 ) B4 
1370 IFfl8=1THEN1400 
1380 PRINT 

1390 Q1 =FNR *■ Q1) ; Q2*FNR < 0.2 > • Q3*FNR ( 0.3 > : Q4=F 
NR 04 ) 

1395 K1 “LEN < STR$ < Q I<2=LEN < STR$ ( 02 > > : K3* 

LEN<STR$<03 >):K4*LEN<STRS<04 >) 

1400 PR I NT# 1," CUM BEP ".; SPC < 13-K 1 >; Q1S 

Pca.5--K2>;02; 

1405 PR I NT# 1, SPC < 15-K3 > ; 03; SPC < 12-K4 > .; 04 

1410 IFVf="N"THEN1430 

1420 PRINT- 

1430 £il = Il -S1 -01 

1440 IFB1>1THEN1460 

1450 B1=0 

1460 B2=I1-S1-Q2 

1470 IFB2>1THEN1490 

1480 B2=0 

1490 B3=11-S1-03 




1500 IFB3>1THEN1520 
1510 B3«0 
1520 B4-I1-S1-Q4 
1530 IFB4>1THEN1544 
1540 B4“0 

1544 B1 *FNR ( B1) : B2-FNR < B2 > : B3-FNR < B3 > = B4=F 
NR < B4 > 

1546 K1-LEM< STR$ <B1> >=K2=LEN(SIR*<B2 >):K3* 
LEN < 3TR$ < B3 "> > ■ K4-LEN ( STR* < B4 > > 

1550 PRINT#1,"UNDEPR BRL ";SRC<13-K1>;B1 i S 
PCC15“K2>;B2; 

1555 PR I NT# 1, SPC < 15-K3 > B3; SPC (12~K4 >; B4 
1560 PRINT#1 
1570 RETURN 

1580 IFK>=<fl9+Ll>THEN1600 
1590 OOTO590 
1600 PRINT#1 
1610 STOP 
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Checkbook 

Balancer 



The following program is helpful in balancing your 
checkbook. You can record all your transactions on 
disk. The program gives you the following options: 

1. Read data from disk 

2. Enter transactions 

3. Change or delete 

4. Write data on disk 

5. List transactions 

6. ReconciLiation 


The data are stored on the disk in a file named 
CHECKS. 

The following transactions are possible : 

check (CK), deposit (DP), withdrawL (CM), debit 
(DB), credit (CR). 

100 n I MRE$ < 93 :> ■■ RD-0 '■ SP$= " " '■ FORK-1T038 • SP$ 

»SP*+ " ” ; NEXT ■■ EC$= " 2222 

105 HK$=" HIT ANY KEY TO CONTINUE 

110 PR I NT " 3" ■ PR I NT •• PR I NT : PR I NTTflB < 9 > " CHECK 

BOOK SELECTOR 

120 PRINT:PRINTTflB<9>"1. READ DATA FILE" : P 
RINT•PRINTTAB <9 >"2. ENTER TRANSACTIONS 
130 PRINT:PRINTTAB<9 >"3. CHANGE/DELETE"•PR 
INT:PRINTTAB < 9 >"4. WRITE DATA FILE 
140 PRINT = PRINTTflB<9>"5. LIST TRANSACTIONS 
" : PRINT•PRINTTAB C9 >"6. RECONCILIATION 
150 PRINT■PRINTTAB < 9 >"7. END 
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200 X*12 : V=21:MS*""LIHE NO.":GOSUE8000 
210 CH*"LEFT* < VA*, 1) '• IFCH**" 1" THENQOSUB100 
0 

220 I FCH*" " 2 " THENG0SIJB2000 
230 IFCH*®"3"THENGOSUB3000 
240 IFCH**"4"THENGOSUB4000 
250 IFCH**"5"THENGGSUB3000 
260 IFCH**"6"THENGOSUB6000 
265 IFCH*="7"THENEND 
270 GOTO110 

620 "HI *=""GOTO6120 
1000 PR I NT " □" : OPEN 1,8.. 3, "0 • CHECKS, S, R " 

1010 IB*1 

1020 FORI*IBTQ99:INPUT#1,R*'■IFR*=EC*GOTO10 
35 

1030 RE* (.! > *R* '■ NEXT I 
1035 IB*I : GOTO1040 

1836 I NPUT# 1, MB* : WB-VflL < WB* > = DF-RB-WB '• BA-B 
A-DF : BA*"STR*<BR> 

1037 FORK* 1T03 • INPIJT# 1, R* ■ NEXTK • I NPUT# 1, RB 
* : RB=VflL<RB*>:GOTO1060 

1840 I NPUT# 1, Bfi* : I NPIJT# 1, flC* '■ I NPUT# 1, PC* '• I 
NPUT#1,BI*•INPUT#1,RB* 

1050 BR=VRL(Bfl*> '• MC-VAL<MC*> ; PC«VRLCPC*> ; B 
I=VRL<BI* >•RB*VRL<RB* > : IB*I 
1060 CLOSE1:RB*1•RETURN 
2000 IFRB*1G0T02100 

2010 PRINT"□OPENING BALANCE "i ■ INPUTBfl ; Bfi*= 
STR* < Bfl > 

2020 PR I NT " ‘JflflONTHL V SERVICE CHARGE" J : INPUT 
NC: riC*=STR*(MC > 

2030 PRINT"]fiPER CHECK CHARGE"; : INPUTPC : PC* 
=8TR*<PC>=IB-1 : RB*Bfl 

2040 RB**STR* < RB > : PR I NT " JPBEGINNI NG ITEM NO 
.:INPUTSI : BI“BI~1 
2100 F0RI-IBTQ99 

2110 BI=BI+1:CI=BI ; GOSUB8200=BI*=CI*:PRINT 
" □! TEH NUMBER : " j BI * : GO SUB: 7120 
2282 GOSUB8500 

2290 N*1 : GOSUB9000•X*2:V*15:MS*-"CORRECT < 
V/N > " : GOSUB8080 : IFVA*=" VG0T02295 

2291 AM=“RM : GOSUB8380 

2292 BI-BI-1 : PC—PC : G0T02110 '• PC=-PC 
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2295 GOSUB9500 

2296 IFFRE C. 0) > 190GOTO2302 

2297 PRINT:PRINT"a OUT OF MEMORV!":PRINT" 
WRITE TAPE, END PROGRAM,PRINT" THEN USE 
OPTION 2. 

2298 PRINTHK* 

2299 GETfl*=IFA$=""G0T02299 

2300 GOTO2310 

2302 MS$= " CONTINUE < V/N > " : GOSUB8000 : IFVA$< 

>"V"GOTO2310 

2305 NEXTI 

2310 BI=I:RETURN 

3000 N*1 : PR I NT "3" j "ITEM NO. " .i : INPUTCI : IF (C 
I<0 >OR <CI>999>GOTO3000 

3010 GOSUB8200 •• FOR I * 1 T'099 : IFRE* ( I ) « " " G0T03 
025 

3015 GOSUB9600•IFBI $~C I*GOTO3030 
3020 NEXTI 

3025 PRINT"ITEM NOT FOUND,";HK$ 

3026 GET m■ IFA$=""GOTG3026 

3027 RETURN 

3030 GOSUB9000 : PRINT ; PRINT ; PRINT" DELETE < 

D) OR CHANGE <C>"; : INPUT AT- 

3035 IFA**"C"GOT03100 

3040 IFR*<>"D"GQTO3030 

3050 RC$*"3" ; GOSUB9500=RETURN 

3100 PR I NT " IT GO SUB 7120 • PR I NT : PR I NT " CORREC 

T < V/N > " = I NPUTfi* ; I Ffl*<> " V" G0T031 ©9 

3110 GOSUB9508 : RETURN 

4000 PR I NT " IT ■ OPEN 1,8,3," 90 • CHECKS, S, W " ■ RB 
*BA:SW*0 

4002 PRINT:PRINT"DELETE RECONCILED ITEMS < 
V/N > " ; '• INPUTAf : I FA$” " V " THENSW* 1 

4005 IFSWO1 GOT0401 © 

4006 PRINT"FINAL RECONCILED TAPE FOR MONTH 
CV/NV; = INPUTS*: IFZ*-"V"THENBA=BA~MC 

4010 FORI*1T099:IFRE*<!>«""GOTO4095 
4020 GOSUB9600:IFRC$*"3"GOTO4098 
4030 GOSUB8500 ; IFSW=0GOTO4060 
4035 I FRC$<:> " 1" GOTO4060 

4040 BA=BA+AM : IF<TP$= "CK" >OR< TPS-"CM" )THEN 
BA=BA~PC 

4050 VP=BA : GOSUB8400:BA*«VP* 



4055 00704090 

4060 IT*»RE*<I)=GOSUB10000 
4090 NEXTI 

4095 IT*"EC*•GOSUB10000 

4100 I T*=BA* '• GOSUB 10000 = I T**MC* : GOSUB 10000 
'• IT**PC* : GOSUB 10060 • IT*=BI* 

4110 GOSUB10000:IT*»RB*=GOSUB10000•CLOSE1= 
RETURN 

5000 PR I NT" rrTAB < 9 >" LI ST ING SELECTOR " ■ PR I 
NT:PRINT=8U*0 ; TL=0=AS*0 

5005 PRINTTRB(9>"1. LIST ALL TRANSACTIONS" 

:PRINT:PRINTTAB<9>"2. LIST BV ACCOUNT 

5020 X= 12 = V= 10 : MS** " LINE NO. " '• GOSUB8000 

5030 IFLEFT*<VA$,1>-"1"G0T05100 

5040 IFLEFT*CVfl*,1)O"2"GOTO5000 

505© PRINT"^ACCOUNT"j :INPUTTC* : IFLEN(TC*)< 

>200705050 

5068 SU=1 ; AS=1 

5100 N*0 : RB*Bfl•FORI*1TO200 

5105 IFRE*<I)*""GOT05130 

5110 GOSUB9600=IFRC**"3"G0T05125 

5112 IFAS=0GOTO5U6 

5113 IFRC*“"2"GOT05125 

5114 IFAC*OTC*G0T03125 

5115 TL-TL-RM : G0T0511 7 

5116 GOSUB8300 

5117 N*N+1 = GOSUB9000 : IFNNO6G0TQ5125 

5118 IFRE*<1 +1> *""GOT05125 

5119 PRINTHK* 

5120 GET A* '• I FA$~ " ” G0T05120 
5125 NEXTI 

5130 IFSU=0GOTO5150 
5140 VP-TL : GOSUB8400:TL*-VP* 

5145 X=2 : V=22 '• VP*="TOTAL DEBITS THIS ACCOU 
NT ="+TL* : G0SUB8100 
5150 PRINTHK* 

5135 GETA*:IFA*=""G0T05155 
5160 RETURN 

6000 PR I NT "□REVIEW RECONCILED ITEMS (V/N) 11 
; =INPUTA* : SW*0 : N»0 : IFA**"V"THENSW*1 
6010 RB=BA : SU=1 : FORI = 1T099:IFRE* <I) = ""GOTO 
6100 

6020 GOSUB9600:IF <SW*0)AND(RC*="1"> GOTO606 
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603© N~N+1 : GOSUB9008 '• X-2 : Y-22 • MS#*" ON STflT 
EMENT (V/N) 

6040 GOSUB8000■IFVA#="N"GOTO6070 

6050 IFVfl#<>"V"GOTO6048 

6055 RC#= " 1" •• GO SUES 508 

6060 GGSUB8500:GOTO6090 

6070 RC*-"2"-GOSUB3500 

6090 NEKII 

6100 VP#*SP# • GO SUBS 100 RB-RB-MC : VP-RB : GOSU 
B8400=RB#-VP# 

6110 VP#-" STATEMENT BALANCE SHOULD BE "+RB 
# ■ G0SUB8100 '• PR INTHK# 

6120 GETA# •• I FA* 85 " " GOT06120 
6130 RETURN 

7120 PRINT"WTVPE (CK, BP, CM, DB, CR>" J■IN 
PUTTP# : T0#«" " = CN*0 '• CN#-" " 

7 130 IF < TP#'= " DP " > OR ( TP$= " CM " > GOTO7200 
7140 IF <TP#*"DB">OR<TP$="CR">GOTO7200 
7150 IFTP#<>"CK"G0T07120 

7160 PRINT"J(ICHECK NUMBER"; : INPUTCN ■ VP#*STR 
■$( CN> • GOSUB8300 • CN#*VP# 

7170 PR I NT " WTO " ; = INPUTT0# ’• IFLEN < T0# ) > 19G0T 
07170 

7200 PRINT"W10NTH"; •INPUTMO : IF<M0<1>OR<M0> 
12>GOTO7200 

7210 VP#*STR# < MO > •• GOSUB8300 '• MO#-VP# 

7220 PRINT"DRV "i ■ INPUTDfi•IF <Dfl<1>OR<DR>3 
1>GOTO7220 

7230 VP#*STR#<Dfl> : GOSUB8300=DR#*VP# 

7240 PR I NT " VERR " > '■ l NPUT VR* : IF ( VR#< " 00" > OR 
<VR#>"99"> GOTO7240 

7250 REM WHAT???.PRINT'UHFOR (OR FROM;" 

; : INPUTfiC# : IFLEN(flC#X>2GOTO7250 

7260 PRINT"MRMOUNT"; =INPUTAM : IF(TP#-"CK">0 

R(TP#="CM")THENAM*-AM 

7270 I FTP# 58 " DB " THEN AM—AM 

7280 VP-AM : GOSUB8400:RM#«VP# : RC#="8" ; RETUR 
N 

8000 PR I NT ”»" ■ FORK 85 1 TO ( V~2) '• PR I NT = NEXTK : PR 
INTSP# 

8010 PR I NTT AB ( X- 1)"T; MS#; • I NPUT V A# : RETURN 
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8i00 PR I HI" M" : FORK® 1 TO ( V-2 > : PR I HI: NEXTK '• PR 
I NTTflB ( X-1) VP* '• RETURN 

8200 CI *®STR* < CI > : LH*LEN ( CI * ) : CI *=R I GHT* C C 
I*,LN~1):CI*-"00"+CI* 

8290 CI*=RIGHT*(CI* > 3) : RETURN 

8300 LN*LEN < VP* > : VP*=R IGHT* < VP*, LN-1 > : P.ETU 

RN 

8400 VT® 100*VP = VT= 1 NT < VT ) '• TM*®STR* < VT ) : LN* 
LEN<TM*>-1 : LB**LEFT*(TM*.. i> 

8410 TM**RIGHT* <TM*,LN >■IFLN>2GOTO8430 
8420 2F*= " " •• FORK* 1 TO < 3-LN > : 2F*®ZF*+ " 0 " : HEX 
TK:TM*=2F*+TM*:LN=3 

8430 VP*=LB*+LEFT*< TM*LN-2>+" . "+RIGHT*<TM 
$;2)•RETURN 

8500 RB*RB+RM = IF < TP** " Cl<" > OR< TP*»"CM " >THEN 
RB=RB-PC 

8510 VP*RB = GOSUB8400 '• RB*=VP* : RETURN 

9000 IN* I NT ( ( N-1) /6 ) : NN*N- < 6* IN > : IFNNO1 GO 

TO9100 

9010 PRINT":] ITEM CHK# BATE TYPE FOR 
AMOUNT" : VT**"BALANCE 
9015 IFSU* 1TIHENVT*® " " 

9020 PRINTTflB(12 >"TO";TAB<32>VT* 

9100 V*4+< < NN-1>*3):X*2:VP**BI* : GOSUBS100: 
X*7: VP*®CN*■GOSUBS100 


9120 X® 13 : VP*=MO*+ " X " +Dfl*+ "" + VR* : GOSUBS 10 
0 : X=23 ’• VP*®TP* ’• GOSUBS 100 

9130 X=28 • VP*-flC* GOSUBS 100 • FiZ*=RM* : GOSUBS 
200 


9150 V=V+1 : X* 13 : VP**T0* '• GOSUBS 100 ’• R2*®RB* : 
IFSU*1THENflZ**"” " 

9155 GOSUB9200 '■ RETURN 

9200 LN*LEN(A2*>:IFLEFT*<A2*,1)O"-"G0T092 
20 


9210 VP*=R I GHT* ( R2*.. LN-1 > : X*33 : GOSUBS 180 : R 
ETURN 

9220 VP*® " " •• F0RK*2T0LN : VP**VP$+ " SS" +MID* < R2 
*, K, 1 > : NEXTK = X*33 ; GOSUBS 100 : RETURN 
9240 PRINTHK* 

9500 RE* U > =BI*+"T"+CN*+”t"+MO*+”T"+BR*+"t 
"+VR*+"T" 


9510 RE*(I)=RE*<I>+TP*+"t"+flC*+"t"+RM*+"T" 
+T0*+"T"+RC*+"T"■RETURN 
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9600 K3“1:GOSUB9800 ; BI$-LEFT$(RE$(I),K-1>: 
KS-K+1:GOSUB9800■GOSUB9900 : CNf«TV$ 

9610 CN=VRL< CN$>:GOSUB9800■GOSUB9900:MO$*T 

v$ ■■ rio=vflLaio$> = GosuBseae : GOSUB9900 

9620 DR*=TV$ : BFi-VflL < DR* > : GOSUB9800 : G0SUB99 

00 ■ VR$*TV$ : VR«VflL<VR#) '• GOSUB9800 

9630 GOSUB9900 ; TP$*TV$ ■ GOSUB9800=GOSUB9900 

: flC$=TVf- = GOSUB9800 '• GOSUB9900 : flM*«TV* 

9640 Rri~VRL.( RM$) : GOSUB9800 ■ GOSUB9900 '• T 0 f=T 
V* = GOSUB9800 • GOSUB9900 • RC*=TV* 

9650 RETURN 

9800 FORK=KSTO80=IFMID$(RE$(I),K,1> = "T"GOT 
09820 

9815 NEXTK 
9820 RETURN 

9900 TV**"" ; IF<K-KS>“0GOTO9920 
9910 TV**MID*(RE*<I>,KS,K-KS) 

9920 KS*K+1:RETURN 
10000 IFFF=0THENLC~193 
10010 IFFF*0THENFF*1 

1 0020 IL-LEN ( IT$ > =LC-LC+1L+1 : PRI NT#1 ,IT* : I 

F L C < 19 3 G 0 T010090 

10030 TH=TI:P0KE59411,53 

10040 IF< TI-TH >C5G0T010040 

10050 P0KE59411,61•LC=IL+1 

10090 RETURN 
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NOTES 




Decimal 

Align 



In nearly every business program you need to print 
dollar amounts. The following program (subroutine) 
aligns the decimal and adds "0" or ,00" to your 
figures, if necessary. All you have to do is to 
assign the variable you want to print to JJ and 
then do a GOSUB 10000. When the program returns 
from the subroutine, your number is in the string 
J$, and the length of the string is in LL. Make 
sure that the variables used in this subroutine 
are not used anywhere else in the program ! 

100 INPUT"ENTER NUMBER "; JJ 

105 GOSUB18000 

110 PRINTTAB<23-LL>;J$ 

120 GOTO100 

10000 K1 $•= " 0 " ■ K2f = " . 00 11 
10010 CO I NT ( J J# 10@+. 5 > /100 
10020 J1 ■$ =STR$ < CC > 

10030 J1=CC*10 
10040 J2=INT < J1 > 

10050 J3*J1-J2 
10060 IFJ3<.09THEN10090 
10070 J$=J1 * = LL-LEN ( J:f > 

10080 RETURN 
10090 J4=INT<CC > 

10100 J5*CC-J4 

10110 IFJ5<.09THEN10140 

10120 J$=J 1 +K1 ■$ ■ LL=LEN < J$ > 

10130 RETURN 

10140 J$*J1$+K2$ ; LL-LEN( J $) 

10150 RETURN 
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NOTES 
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Break-Even 
Analysis 

The break-even point is the volume of sales a firm 
must achieve to neither earn profits or incur 
losses. Fixed costs such as rent remain costant 
regardless of the level of output. Variable costs 
increase in direct proportion to sales. The break¬ 
even point will be achieved when sales revenue is 
just above the combined costs. Fixed cost, maximum 
number of units at fuLl production, sale price per 
unit, and variable cost for full production are 
entered in the computer. The program calculates 
the break-even point by sales in dollars, 
percentage of maximum sales, and units. Then it 
prints a table showing profits for each 10% 
increment in sales. The analysis can be extended 
to allow for a profit goal and allows you to 
consider changes required in the business to 
increase sales volume. 

The program was run twice with the same cost 
variables. The first output shows figures for a 
product unit price of $9. Sales in units must be 
5600 for a $4800 profit. The second output with a 
unit price of $10 requires 4200 units to be sold 
for the same profit. The firm must study the 
demand : can they sell enough units, if the price 
is raised. 



100 REM BREAK EVEN ANALVSIS 
110 PR I NT'FT 

120 INPUT"FIXED COST OF OPERATION ";F 
130 PRINT"MAX NUMBER OF UNITS AT FULL PROD 
UCTION"•INPUTU1 
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14© INPUT"SALE PRICE PER UNIT ";U2 

150 PRINT"VARIABLE COST FOR FULL PRODUCT10 

N"■INPUTV 

160 PRINT 

170 OPEN1,4 

175 .J J=F ; GOSUB10000 

190 PRINT# 1, "FIXED COSTS’* "; J$ 

190 PRINT#1,"MAN NO. UNITS* ";U1 

195 JJ~U2 : GOSUB10000 

200 PRINT#1,"PRICE PER UNIT* "; J$ 

205 .JJ-V '■ GOSUB 10000 
210 PRINT#1,"VARIABLE COSTS” ";J$ 

220 PRINT#1 
230 M*U1#U2 
240 FORK*1TO100 
250 S*X#KMX100> 

260 E= <X*(VX100 > >+F 
270 IFE<STHEN285 
280 NEXTN 

285 JJ=S : GOSUB10000 

290 PRINT#1,"THE BREAK EVEN POINT IS *";J$ 

300 PRINT#1,X;" PERCENT MAX SALES OR "i SXU 
2;" UNITS" 

310 PRINT#1 

320 M~MX 10 V=VX 10 ■ M1 =M : V1 =V 

330 PRINT#1,"NO. UNITS " j TAB(8 >;"SALES",TA 

E(9) "COSTS" TAB < 10 ) j "PROF IT" 

340 PRINT#1 
350 FORX=1TO10 

360 PR I NT# 1, TAB ( 7-LEN < STR$ < M1 XU2 ) > > M1XU2 j 

365 JJ*INT<M1>:GOSUB10000 
370 PR I NT# 1 , TAB ( 1 5-~L > ; Jt ; 

375 JJ-( < V1XM1 >1) +F > = GOSUB 10000 
380 PRINT#1,TAB <15-L >, J$J 

385 .JJ= I NT < Ml)-< C < V1 XM 1) #M 1) +F > = GOSUB 10000 

390 PRINT#1,TAB <15-L); J$ 

400 M1*M1+M=Vl-Vl+V 
410 NEXTX 
420 PRINT 
430 CLOSE1 
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440 GOTO110 

10000 K1$®"0" ; K2$= " .. 00’’ 
10010 C C = IN T '• J J % 10 0 +. 5 ) ,■■■' 10 i \ 
10020 J1$=STR$(CC) 

10030 J1=10*CC 
10040 J2=INT<J1> 

10050 J3=J1 --J2 
10060 IFJ3<.09THEN10090 
10070 J$=J1 $■ L=LEN<J$) 
i00S0 RETURN 
10090 J4=INT(00 > 

10100 J5=0C-~J4 
10110 IFJ5<.09THEN10140 
10120 Jf=J1$+K1 $■ L=LEN(J$ > 
10130 RETURN 

10140 J$=.J 1 *+K2* ' L=LEN < JS > 
10150 RETURN 


FIXEB COSTS- 

1 2000 


PI AX NO. UNITS- 

1 4000 


PRICE PER UNIT 

- 9 


FIXED COSTS= 

12000.00 


MAX NO. UNITS* 

1 4000 


PRICE PER UNIT 

- 9.00 


VARIABLE COSTS' 

84000.00 


THE BREAK EVEN 

POINT IS t 

04000.00 

29 PERCENT PH 

AX SALES OR 

4060 UNITS 

NO. UNITS 

SALES 

COSTS 

1 400 

12600 

20400.00 

2800 

25200 

28800.00 

4200 

37800 

37200.00 

5600 

50400 

45600.00 

7000 

63000 

54000.00 

3400 

75600 

62400.00 

9300 

83200 

70300.00 

1 1200 

100800 

79200.00 

1 2600 

113400 

87600.00 

1 4000 

126000 

96000.00 

FIXED COSTS* 

12000.00 


MAX NO. UNITS” 

1 4000 


PRICE PER UNIT 

=- 9.00 


•.•’APIABLE COSTS 

- 34000.00 



THE BREAK EVEN POINT IS * 34000.00 
29 PERCENT MAX SALES OR 4060 UNITS 


. UNITS 

SALES 

COSTS 

1400 

12600.00 

20400.00 

2800 

25200.00 

28800.00 

4200 

37800.00 

37200.00 

5600 

50400.00 

45600.00 

7000 

63000.00 

54000.00 

8400 

75600.00 

62400.00 

9800 

88200.00 

70800.00 

1 1.200 

100300.00 

79200.00 

12600 

113400.00 

87600.00 

14000 

126000.00 

96000.00 


A 


PROFIT 

■- 7800.00 
~3600.00 
600.00 
4800.00 
9008.00 
13200.00 
17400.00 
21600.00 
25808.00 
30000.00 


PROFIT 
- 73@@.00 

-3600.00 
608.00 
4300.00 
9000.00 
13200.00 
17400.00 
21600.00 
25300.00 
30000.00 




NOTES 




Compare 

Strings 



This program will compare an entered string with 
the list of strings contained in the DATA 
statements. It will select strings with the 
percentage of similarity you desire. Enter the 
word CADILLAC for strings to be matched and 20 for 
the percentage of similarity. The selected strings 
will be Cadelle and Piccadilly. Now enter 5 for 
the percentage of similarity and more strings will 
be selected. 

100 REM COMPARE STRINGS 
110 PR I NT" IT' 

120 DI MET < 25 > , X < 25 > 

130 INPUT "ENTER STRING TO BE MATCHED ‘MAT 
140 PRINT"ENTER DESIRED SIMILARITY" 

150 INPUT"ON A SCALE OF 0 TO 100X "IP 

160 PRINT 

170 fi=LEN{AT 

180 F0RJ-1TQ25 

190 READETCJ> 

200 IFBT< J) = "*"THEN460 
210 E=LEN<BT < J > > 

220 IFR>BTHENB*fl 

230 FORM*1TOE 

240 C“0 

250 FOR 1 = 1TOM 

260 KT=MIDT CAT,B-M+1,1> 

270 LT=MIDT(BTCJ>, I, 1 > 

280 IFKT=LTTHENC=C+1 
290 NEXTI 
300 C*C+D 
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310 T-T+C 
320 NEXTM 

33© FORM--B+1T02#B-1 
340 C=0 

350 F0RI*1T02#B-M 
360 K$*MIB$ <fl$,1,1) 

370 Lf=M I B$ < B$ < J > .■ M-B+1 , 1 !> 

330 IFK**L*THENC«C+1 
390 NEXTI 
400 OC+B 
410 T*T+C 
420 NEXTM 

430 X< J> = 100*1XB+B 

440 T=0 

450 NEXTJ 

460 FORIOITOJ-I 

470 IFX < K>>PTHENPRINTB*<K > 

480 NEXTK 

490 BflTR"CRBELLE","CflBET","PICCflBILLV 
500 BflTR"BILL PICKLE","LADLE","LILAC" 
510 BflTR"flCRDEMV","BILL","flCCLflIM","# 
520 ENB 
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Bargraph 



With this program you enter the sales for each 
month. The program will then dispLay the vaLues in 
bargraph format. 

100 REM EAR GRAPH 

110 niMn$a3),sa3> 

120 PRINT"3" 

130 DATAJAN,FEE, MAR,APR,MAV,JUN,JUL,AUG,SE 
P,OCT,NOV,DEC 
140 F0RI=1T012 
150 READD$<I> 

160 NEXTI 

170 PRINT"ENTER NUMBER OF ITEMS SOLD" 

180 PRINT"EACH MONTH !"■PRINT 
190 FOR1=1TO12 
200 PRINTDf(I>; 

210 IMPUTE 
220 GOT0400 
230 S<I>*E 
240 NEXTI 
250 PR I NT "IT' 

260 PRINT" ITEMS SOLD IN 1984" 

270 PRINT : PRINT 
280 FOR1=1TO12 
29© PR I NTB$ (. I > 

300 1FS <I)=0THEN340 
310 F0RJ=1T0S<I> 

320 PRINT"*:"; 

330 NEXT..T 
340 PRINT 
350 NEXTI 
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360 PRINT" - 

370 PRINT" I I I I I I 

I I" 

300 PRINT" 1 5 10 13 20 25 

30 35" 

390 END 

400 IFE>35THENPRINT"ONLY NUMBERS UP TO 35 
!":OOTO200 
410 GOTO230 
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Invoice 

Writing 



The program Listed below allows you to write 
invoices with your COMMODORE 64 computer. 

The program is written for a special invoice sheet 
that contains a shipping Label at the bottom. You 
have to enter the date, the first invoice number 
(which wiLL be incremented automatically by the 
program with each invoice), the account number, 
the terms, and the customer's address. When it 
comes to entering the items sold, you only have to 
enter the item number. The program then will 
search for this item number and the matching 
description and the price. When you want to finish 
the invoice, the program will add up the prices, 
add the shipping cost, and deduct the discount (if 
so desire). The invoice wiLL then be printed, 
including the shipping Label. Your companys 
address has to be entered into Lines 530 through 
550 and 1300 through 1320 (we used our address for 
demonstrati on). 

The products have to be stored in DATA statements 
at the end of the program, with item number, 
description, and price. 

The discount (variable D) and the shipping cost 
(variable V) are calculated depending on the 
number of items sold. You may adjust that to your 
own needs by changing the numbers in Lines 710 
through 790. 
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ORIGINAL INVOICE 


DATE 


ELCOMP PUBLISHING INC. 

53 RED ROCK LN. i? i 1933 

POMONfi CR 91766 v - 


INVOICE NUMBER 



5678 j ACCOUNT NUMBER 

^ 5679 j 

s 


s 

0 

L 

MfiGICQMP INC 

” ; MRGICOMP INC 

D 

65 SOUTH STREET 

p ; 65 SOUTH STREET 

T 

CHINO CR 91755 

t ! CHINO Cfi 91755 

0 


0 


f OUR ORDER NO. | VOUR ORDER NO. 

SLSMN 

TERMS 

r 

SHIPPED VIA P C 

DATE SHIPPED 

i 


56 

xx 

PREPAID 

FORWARDER 

12.12.1983 





ITEM DESCRIPTION 




( QUANTITY 
ORDERED 

QUANTITY 

SHIPPED 




UNIT PRICE 

ITEM TOTAL 

200 

200 


100 

PRODUCT NO.1 


9.95 

1990.00 

80 

50 


200 

PRODUCT NO. 2 


19.80 

990.00 

20 

20 j 


400 

PRODUCT NO.4 


29.80 

596.00 

50 

40 


300 

PRODUCT NO.3 


49.00 

1960.00 






40 

XDISCOUNT® - 

! 2214.40 



v 3321.60 £16.87 ; 2.58 __ I 3540 . 17 j 


From: 


ELCOMP PUBLISHING, INC. 
53 REDROCK LANE 
POMONfi Cfl 91766 


To: 



100 REM C BV ELCOMP PUBLISHING INC. 1983 
110 OPEN 1,4 
180 PRINT"d" 
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© © © © © Coi CD - CD © CD © © © © © © © © = © ® © © © © © -* © © © © ini L±i © © © © © 

©I CM ill VD f- CO m ----- © »-« CM ^ VD [S- 00 0*1 © *-< <M lii 00 ID VD f'- 03 Oi = Q *-* CM 03 *S* • -• iD ! *D h- 03 © 

CM CM CM CM CM CM CM © © 03 CO CO 03 CO C3 lii (3 ^ u i* T’t T -ID if) ID ID = ID ••"*' ID ID ID ID ID 


190 INPUT "ENTER TAX RATE " ; TR '• TR-TR/100 


INPUT"ENTER DATE";RD$ 

INPUT "ENTER FIRST INVOICE NO.'Ml 

INPUT"ENTER ACCOUNT NO. <0-END>";Cl 

IF Cl-0 THEN 1600 

SOI '• DC= 1 '■ D=0'• V—0 

INPUT " DISCOUNT VES ( 1 > NO < 0 > " DC 

INPUT "SHIPP I NO AIJTOri. ADDED VESU) HO < 

; c;f 

IF SC-0 THEN INPUT"HOW MUCH"^ V 
I NPUT " CUSTOMERS ORDER NO. " CO# 

INPUT"NAME OF CUSTOMER";S1$ 

INPUT"NUMBER AND STREET";S2$ 

INPUT"CITV, STATE,21P-CODE";S3# 

PRINT 

I NPUT " 1 =30 DA VS NET, 2-COD, 3-PREP A ID" T 

IF TE-1 THEN TE#="30 DAYS NET" 

IF TE=2 THEN TE#-"C 0 D" 

IF TE-3 THEN TE#="PREPAID" 

PRINT:PRINT"1-FORWARDER,2-PARCEL SERVI 
: INPUT"3-PARCEL POST";SV 
IF SV-1 THEN SV#-”FORWARDER" 

IF SV-2 THEN SV#-'*PARCEL SERVICE" 

IF SV-3 THEN SV#-"PARCEL POST" 

PRINT"3":PRINTS1#:PRINTS2# : PRINT33# 

PRINT:INPUT"SHIP TO SAME ADDRESS";Q# 

IF Q#-"V" THEN 510 

PRINT:INPUT"NAME";H1# =INPUT"NO.AND - STR 
H2# : I NPUT " C. ST. ..ZIP"; H3t 
GOTO520 

H1#-S1# : H2#*S2#•H3#-S3# 

FOR Q=1 TO 9:PRINT#1=NEXT Q 

PR I NT# 1, SRC ( 4 > " ELCOMP FUEL I SH I NO INC. 


PR I NT# 1, SPC ( 4 > " 53 REDROCK LN. " SPC < 41 


PRINT#1,SPC<4 > i "POMONA CA 91766" 

PR I NT# 1 '• PR I NT# 1 

PR I NT# 1, SPC < 6 > ; C1; SPC < 50 > 11 

PRINT#1:PRINT#1 

PRINT#1,SPC(6 >;S1#;SPC < 41-LEN <S1# >);H1 
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600 PRINT#1,SPC<6>;32*;SPC(41-LEN(S2*>>;H2 
* 

610 PR I NT# 1, SPC < 6 > ; S3* j SPC ( 41 --LEN ( S3* > ) ; H3 
'$• 

620 PR I NT# 1 : PR I NT# 1 '• PR I NT# 1 
630 PRINT#1:PRINT#! 

640 PRINT#1,SPC(10>;CO*;SPC(12-LEN(CO*>>;" 
xx" spc < 3 > te* ; 

645 PR I NT# 1, SPC ( 17-LEN < TE*) >; SV*SPC ( 29-LE 
N(SV*>>.;RD* 

650 PR I NT# 1 •• PR I NT# 1 • PR I NT# 1 
660 PR I NT " □" ■ GOSUB 1130 
670 GOSUB 830 
680 GOTO 660 
690 S1»I 

700 IF DC*0 THEN 740 

710 IF <S1>0> AND (81<6) THEN B=„25 

720 IF (SI>5) FIND (SKID THEN D*.33 

730 IF Sl>10 THEN D=.4 

740 IF VO0 THEN 800 

750 IF S105 THEN V=2 


> THEN V=1.25 

> THEN V=1„5 


760 IF (SI>14) AND CS1C30 
770 IF (SI>29> AND (SI<50 
780 IF (S1>49> AND (Sl<100> THEN V=2 
790 IF SI>99 THEN V*2.5 
800 11=11+1 

810 R=INT(D*100+.5 >=R*=STR*(R > 

820 GOTO 940 
830 A=0 : GOSUB 1410 
840 G*=D* ; L1=L 
850 C*S1#0 
860 A=C : GOSUB 1410 

870 J*=STR*(N1) ■■ l<*=STR*(SI > • KK*=STR*(21 > 
880 -J'=LEN ( J* > : K*LEN ( K* > ; KK=LEN ( KK* > 

890 PR I NT# 1, SPC (4--KK >; 21; 


900 PR I NT# 1, SPC (6-l <)} S1; SPC (8 ) ; N1 
; ; 

910 ’ PRINT#1,SPC(30-LEN(E* >~L1>;G* 

'>>m- 

920 C=S1*CFT=T+C 
930 RETURN 
940 D1=D#T 

950 D1 = INT(D1*100+.5 >/100 


SPC(6-J > 
SPC(17-L 
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969 PRINT#1 

970 fl=Bl : GOSUB 1410 

980 PR I NT# 1, SPC < 45-LEN < R$) > R; SPC < 2); " */.D IS 
count = - 11 ; spc (14-L >; dt 

990 FOR p=l TO as-zs> PRINT#! : NEXT P 
1000 PR I NT# 1.- SPC < 23 >; "THANK YOU FOR YOUR 0 
RDER" 

1810 PR I NT# 1 '• PR I NT# 1 • PR I NT# 1 
1020 R=T--B 1 '• 00SUB 1410 
1030 G$=D$:L1=L 
1040 R=V:GOSUB 1410 

1050 ht=dt 

1060 M1«<T-D1+V>*TR 
1070 RsT-D1+N1+V : GOSUB 1410 
1080 JT=DT ■ L2-L 
1090 R“M1 : G0SUB 1410 

1100 PR I NT# 1, SPC ( 8-L1 > ; 0$; SPC < 7-L ) , DT; SPC < 
3>;h$;spc<50-L2>; 

1110 PRINT#1:PRINT#1:PRINT#1 

1120 GOSUB 1290 : 1=0 ; T=0 '• GOTO 250 

1130 INPUT 11 WHICH I TEN NO. " ; N1 

1150 IF N1=0 THEN 690 

1160 RESTORE 

1170 RERB N,E$,0 

1180 IF N=0 THEN 1218 

1190 IF N=N1 THEN 1238 

1200 GOTO 1170 

1210 PRINT”ITEM NO. NOT FOUND I" 

1220 PR INT:PRINT■PRINT•GOTO 1130 
1230 INPUT"ENTER QURNTITV ORDERED ";Z1 
1250 I NPUT "ENTER QURNT ITV SHIPPED 'MSI 
1270 1=1+81 : ZS=ZS+1 
1280 RETURN 

1290 PRINT#1:PRINT#1•PRINT#1:PRINT#1 


1300 

r* ji 

PRINT#1,SPC(5) 

"ELCOMP PUBLISH INC 

L M 

1310 

PRINT#1,SPC<5) 

;"53 REBROCK LANE" 

1320 

PRINT#1,SPC(5> 

"POMONA Cfi 91766" 

1338 

FOR 2V~ 1 TO 8 '• 

PRINT#! 

1340 

NEXT ZV 


1350 

PR I NT# 1.. SPC <. 5 > 

; HIT- 

1360 

PR INT#1,SPC(5) 

H2T 

1370 

PR I NT# 1.. SPC < 5 > 

H3T 



1380 PRINT "IT 
1380 ZS=0:31=0 : T=0 : 1=0 
1400 RETURN 
1410 K1$="0" 

1420 K2f=".00" 

1430 B* I NT -I A* 100+. 5 > / 100 
1440 B 1 $~STR$ (B > 

1450 B0=B*10 
1460 B2- s I NT < B0 > 

1470 D3“D0-D2 

1480 IF B3<.09 THEN 1510 

1490 b$*bi$ 

1500 GOTO 1570 
1510 B4-1NT <B > 

1520 B5*B-B4 

1530 IF BSC.03 THEN 1560 
1540 B$~B1$+K1$ 

1550 GOTO 1570 
1560 B$=B1$+K2$ 

1570 L~LEN<B$> 

1580 RETURN 
1600 CLOSE1 ; END 

2000 REM BflTfl STATEMENTS START HERE 
2010 BATA 100,PROBUCT NO.1,3.95 
2020 BATA 200,PROBUCT NO.2,13.8 
2030 BATA 300,PROBUCT NO.3,43 
2040 BATA 400,PROBUCT NO.4,23.80 
205© BATA 0,0,0 

2060 REM LAST STATEMENT HAS TO CONTAIN 0,0 

,0 


USEFUL HINT 

Do not use any punctuation during input of 
customers addresses. 

This version of INVOICE WRITING was tested with 
the following hardware: 

1 Commodore 64 

1 VC 1525 printer (10 characters per inch) 

To change the program to work with another 
printer(other than 10 characters per inch) please 
check the following line numbers: 

Line 910-980 and line 530-645 
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Dateblock 



The following program allows you to use your 

computer as a datebLock. The dates can be saved on 
disk or cassette. When you want to check for dates, 
you may by month or by a certain period of time. 
You also may check for a date by entering a 

certain text to be searched for. The text for each 
date can be up to 32 characters long. The name of 
the sequential data file where the dates are 

stored is 'DATES'. 

The program also has a calendar option which 

allows you to determine the day of the week and 
the number in the year for any date. 


50 PRINT 

52 REM COPYRIGHT EL COMP PUBLISHING.. I 

NC... ***" 

54 REM "### FILL RIGHTS RESERVED 

90 PR I NT •• PR I NT '• P0KE53281,15 

100 PRINT "STHI8 PROGRAM SAVES IMPORTANT D 

ATES." 

102 PRINT 

105 PRINT "YOU CAN CHECK FOR DATES BY A PE 
RI nil M 

110 PRINT "OF TIME, OR BY TEXT” 

115 PRINT 

140 PRINT "IMPLEMENTED IN THE PROGRAM IS A 
CALENDAR" 

146 PRINT:PRINT "PRESS ANY KEY TO CONTINUE 
! " 
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148 GET TT$ : IF TT$="" GOTO 148 

1 000 d i n ss$ < 1 00, mb < 12 > , m$ < 12) , wt$ ( s >, gd 

*C2> 

1002 DIM ZA*-C.2),B$<2> 

1010 FOR I ■ 1 TO 12 : READ MN*(I > •READ MD < I ): 
NEXT- 

1012 FOR 1=0 TO 6 : READ WT$<I)=NEXT 
1014 READ GD$< 1) ; READ GD*<2> 

1100 PRINT "21" 

1102 print "xmi***##* date block #####" 

1140 PRINT'PRINT 

1142 PRINT "MtiMISR ~ CALENDAR" 

1160 PRINT: PRINT "marSEBS] - READ DATES FROM 
DISK OR TAPE" 

1180 PRINT: PRINT "m'V&m - ENTER,-'’DELETE DA 
YES" 

1200 PRINT-PRINT "IISn499 ~ CHECK DATES" 
1220 PRINT: PRINT ’'||jSf«5®g - SAVE DATES ON D 
ISK OR TAPE" 

1240 PR I NT : PR I NT '• PR I NT 

1242 PRINT "!*<!!! DON'T FORGET TO SAVE DAT 
ES, BEFORE" 

1244 PRINT "TURNING OFF THE COMPUTER !!!>:« 

II 

1300 GOSUB 50100 

1301 IF A=0 THEN PRINT "iHDON'T ENTER "'0' H 
ERE":GOTO i3@@ 

1302 ON A GOTO 5000.. 19000,. 20000,30000,4008 
0 

5000 PRINT 

5002 print "mmw*. calendar m*.mw 

5040 PR I NT : F'R I NT '■ PR I NT 

5042 PRINT "MONTH,DRY,YEAR"-PRINT "FOR EXA 
MPLE ---->? 11,3,1982" 

5043 PR I NT : PR I NT " < ©, 0,0 TO QIJ IT)": pr j NT 

5044 GOSUB 5300© 

5046 ON A GOTO 5040,1100 
6240 PR I NT" 21" : PRINT- 

6242 PR I NT " HDfiTE = rsj" STR$ < T);" TH "; MN$ <M) 

J 

6260 PRINT 

6262 PRINT STR$<TN>"STTH DAV OF THE YEAR" 
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6280 PRINT 

6282 PRINT "DRV OF THE WEEK ; !H";WT$<QT) 
6300 PR I NT " S 3 " : GOSIJB36000 : PR I NT " IT ■ GOTO 504 
0 

10000 PRINT : PRINT 

10002 PRINT "mwm PERU BATES FROM TAPE 0 

r disk " 

10010 PRINT•PRINT:INPUT"TAPE OR DISK <T/D > 
?"I NT 

10012 IFINC«"T"THEN10021 

10014 IFIN$<> " D" THEN 10010 

10015 PRINT:PRINT:GOSUB50000 : IFR$~"X"THEN1 
100 

10016 OPEN1,8,2,"DATES,S,R" 

10018 FORI=1TO100:INPUT#1,SST<I) 

10019 IFSST<1>■""THENI=180 

10020 NEXT I '■ CLOSE 1 : GOTO 10240 

10021 PRINT •• PRINT 

10022 PRINT "PLACE BATA TAPE IN RECORDER" 
10100 PR I NT- 

10102 GGSUB 50000-IF A*="X" THEN 1100 
10180 OPEN1,1,0,"BATES" 

10182 FOR 1=1 TO 100 
10184 INPUT#1,SST CI> 

10186 IF SST< I )=*" " THEN 1 = 108 

10188 NEXT I 

10198 CLOSE1 

10240 PRINT- 

10242 PRINT "WREflDVl" 

10244 GOSUB 56000 : GOTO 1100 
20000 PRINT 

20002 PRINT "W#### ENTER/DELETE DATES 

M 

20140 PRINT:PRINT 

20142 PRINT "MSniSSQ “ ENTER DATES" 

20150 PRINT PRINT "MfiM2nD - DELETE DATES" 
20152 PRINT:PRINT "(QUIT WITH 0>" 

20160 IF SS$100> = "" THEN 20180 
20162 PRINT: PRINT "rsj *** MEMORY FULL'## 
#" 

20180 GOSUB 50100:IF r= 0 goto 1100 
20200 ON A GOTO 25000,28000 
20220 GOTO 20160 
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22406 GOTO 33000 

25000 IF SS*(100>=.GOTO 25050 

25002 GOTO 20000 

25050 TX*= " " : F'R I NT " PR I NT 

25052 PRINT TABC3)"!Sh ENTER DATES -S3" 

25100 PRINT 

25102 PR I NT " MONTH, DRV, VERR " : PR I NT " FOR EX 
AMPLE —>? 11,3,1382" 

25103 PR I NT ; PR I NT "(QUIT WITH 0,0,0:-" 


25104 GOSUE 53000 

25106 ON R GOTO 25100,20000 

25200 PRINT "21" 

25202 PRINT "JWICURRENT DATES FOR = " 
25204 PR I NT " <!*" ; TN i " V> W' WTf- ( QT > ; " 
■$ (T> J "X"; MN$ (M ) , J 


"STR 


25238 PRINT 

25240 PRINT " - NONE -■IliillilHI", 
25300 FOR 1=1 TO 100 


25302 IF SS*(I>="" THEN 1 = 100 ; GOTO 25360 
25340 IF LEFT % (SS$ ( I ) , 8 )=D* THEN HH*»SS*(I 
> '• GOSIJB 52000 
25360 NEXT 

25500 PR I NT ■ PR I NT : PR I NT " SNEW DATE ’• " 

25502 PRINT : PRINT "SEPARATE HOURS AND MINU 
TES EV DECIMAL!" 

25504 PRINT "(EXAMPLE : —>? 7.14>" 

25503 PRINT■PRINT "QUIT WITH 33" 

25520 FOR 11=1 TO 2 

25540 IF 11 = 1 THEN PRINT '• PR I NT "FROM —>", 
IF 11=2 THEN PRINT"TO —>"J 

INPUT2A '• IF ( ZA=39 > AND ( 11 = 1) THEN25800 
25555 IF(ZA=39>AND(11=2)THENZA*(2) = "...." = 
GOTO 25600 

25560 IFZA<00RZA>24THEN25568 

IFINT(100*(ZA-1NT(ZA >)> >53THEN25568 
GOTO25570 

crcr . 


25542 

25550 


25562 

25564 

25568 

25570 


GOSUB50200 :■ PR I NT : GOTO 25540 


ZA*(11) = "000"+RIGHT*(STR*(ZA*100),LE 
N(STR*(ZA*100))-1) 

25580 IF LEN(ZA*(11))>7 THEN GOSUE 50200:P 
RINT : GOTO 25540 

25590 ZA$(11)=RIGHT*(ZA*(11),4) 

25592 NEXT II 
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25594 IF VflL(Zfl*C 2 > > OVAL CZfi* <1 > > THEN GOS 
UB 50200 ■■ PRINT: GOTO 25520 
25600 T$= " " •• PR I NT '■ PR I NT ,! TEXT < 32 CHRRRCTE 
RS MAX.> : " 

25602 input > m ;tx* 

25604 IF TXf="" THEN TX*=' ! ~ NO TEXT 


25640 TX*=TX$+" 

" : TX**LEFT* < TX$ >32 > 

25700 HH$=D*+ZA$C1> +ZR*<2)+TX$ 

25702 PRINT 'THEN DATE :":PRINT 
25704 GOSIJB 52000 = PR I NT : PR I NT " SCORRECT 


25706 GOSIJB 50000: IF fl*="X" GOTO 25200 

25960 FOR 1 = 100 TO 1 STEP --1 

25962 IF SS*CI>»"" THEN NEXT I:GOTO 26000 

25980 IF VflL CLEFT*< SS*<I>,8 > > >VRL C LEFT* <HH 

*,8 >’> THEN SSf C1 + 1)=SS*CI>:NEXT I 

26000 SS*Cl+1)-HH$:GOTO 25000 

28000 IF SS*C1>=" M THEN 20080 

28020 PRINT "IT :PRINT 

28022 PRINT TRBC9> > "I'SH- DELETE DATES 

28040 ZZ=0:PRINT:FOR 1=1 TO 100:IF S3*CI>= 

"" THEN 29000 

28060 PRINT STR*<I>;") "j 

28062 HH*=SS* (I >: GOSIJB 51980 

28064 IF 1/10=1NT<1/10) THEN 29000 

28100 NEXT I:GOTO 20000 

29000 PRINT- 

29002 PRINT "Mini SB ~ ONE DATE” 

29004 PRINT: PRINT "MareBQ - EVERYTHING UP 
TO ONE DRTE" 

29006 PR I NT : PR I NT " ' X ' QIJITS ! " : PR I NT 
29010 PRINT:iNPUTfl*:IF R#*"X" THEN 20800 
29020 IF fl*="2" THEN 29500 
29022 IF A$="1" THEN 29040 
29024 GOTO 28100 

29040 LL*0:PRINT:PRINT"ENTER NUMBER OF DAT 
E ! " 

29842 INPUT ;LL 

29044 IF LL=0ORSStCLL> = "" THEN 28100 
29060 HH$=SS$ C LL> ; PR I NT " IT = GOSUB 51900 : SS 
* CLL > = "" 

29070 FOR I1*LL+1 TO 100 
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29072 SS*<H-i>*SS$<Il> 

29074 NEXT II 
29080 PRINT 

29082 PRINT "DATE ERASED" 

29084 GO5UB50000 '• I FA$= " X " THEN20000 
29100 PRINT-GOTO 28100 
29500 PRINT 

29502 PRINT "DELETE UP TO WHERE <INCL.>" 

29504 GQSIJB 53000 

29506 ON A GOTO 29900,28100 

29600 PRINT- 

29602 PRINT "DELETE UP TO AND INCLUDING" 
29604 PR I NT WTf < QT >" , "; 8TR$ < T >; " / " ; MN$ M > 

; J 

29606 GOSUB 50000 : IF A$»"X" GOTO 29000 
29640 11=0-FOR 1 = 1 TO 100 
29642 IF SS$a> = "" GOTO 29690 
29660 IF VAL (LEFT $< S3*<I>,8 >)OVAL < Df>THEN 
SS$a> = "" : 11 = 11 + 1 
29680 NEXT 

29690 IF 11=0 GOTO 20000 
29700 FOR 1=11+1 TO 100 
29702 SS* (Ml) =SS$< I > 

29704 NEXT 

29720 FOR 1=100-11+1 TO 100 
29722 SSf-a> = "" 

29724 NEXT : GOTO 20000 

29900 GOTO 29500 

30000 IF SS$(l>= n " GOTO 30004 

30002 GOTO 30040 

30004 PRINT-PRINT 

30006 PRINT "WO DATES EXISTING ! W 
30008 PRINT:PRINT "PRESS ANY KEY !" 

30010 GET TS$ - IF TSf-="" GOTO 30010 
30012 GOTO 1100 
30040 PRINT "IT 

30042 PRINT "We**** CHECK DATES VWMW 
30100 PRINT 

30102 PRINT 11 1184190 - MONTHLY SURVEY" 

30120 PRINT:PRINT "MCTggQ ~ CALENDAR DATES 

I! 

30140 PRINT:PRINT "884390 - TEXT" 

30142 PRINT-PRINT "CENTER '9' TO QUIT !" 


36 




30200 A=@: G03UB 50100 : IF A=@ GOTO 1180 
30240 ON ft GOTO 30300.. 31000.. 33000 
30260 GOTO 30000 
30300 PRINT "31" 

30302 PRINT TAB03>; 'TSh MONTHLY SURVEY ~5fl" 
30310 T$=" 1" '■ M#=" " 

38312 PRINT:PRINT "ENTER MONTH AND YEAR !" 

30314 PRINT "<EXAMPLE -->?11,1982 )" 

30315 PRINT:PRINT "0,0 JO QUIT" 

30316 PR I NT : INPUT " —> " M#, J# 

30318 IF M#="0" THEN 30000 
30320 GQ3UB 53020 

30322 IF A“1 THEN 30310 
30340 JM#=J#+M# 

30360 PRINT "LI" 

38362 PR I NT " rsi - " ; riN# C M ) ; " " ; J ; "-J]" 

30364 PRINT 

30500 03=0 : ZZ=1 ; FOR 1*1 TO 100 

30502 IF SS$<I)»"" THEN 30300 

30540 IF LEFT# <. S8# < I ) , 6)* JM# THEN 30560 

30542 GOTO30900. 

30560 KK#=S8#<I)•GS*GS+1 

30562 PR I NT " HS" ; MI D# <. KK# ,5,2 > ; " /"; MI B# (KK#, 
7,2), " " LEFT#'LKK#, 4> 

30564 PR I NT " <" MI D# C. KK# ,9,2 > ; " . " .; MID# < KK 

#, 11 , 2 ), 

30566 PR I NT MID# <■. KK# ,13,2),"."; MI. D# < KK#, 15 
, 2 ) ; " ) " 

30568 PR I NT TAB < 5 ) .; MID# ( KK# ,17,32 ) 

30569 ZZ=ZZ+i 

30570 IF 22011 THEN 30300 

30571 22=0 

30572 PRINT "IF'RESS ANY KEY TO CONTINUE !" 

30574 GET TS#:IF TS#="" THEN 30574 
30300 NEXT I 

30902 PRINT:IF GS=0 THEN PRINT=PRINT"WO D 
ATES FOR THIS MONTH !" 

30904 PRINT: PRINT "IF'RESS ANY KEY ! ".; 

30906 GET TS# : IF TS#="" GOTO 30906 
30908 GOTO 30300 
31000 PRINT 
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31002 PRINT "ZPERIOD WISHED : " 

31100 FOR 1 = 1 TO 2 

31140 PRINT GD $<. I > 

31141 PRINT "FOR. EXAMPLE —>? 12,24,1982" 

31142 GOSIJB 53000 

31240 ON A GOTO 31140,31320 

31260 D$ <1) =D$ ■ GOTO 31400 

31320 IF 1=1 THEN B$d>="00000000" 

31322 IF 1=2 THEN D$<2>="99999999" 

31400 NEXT- 

31440 ZZ=1 : GS=0 ; FOR 1=1 TO 100 
31442 IF SS$(I>="" GOTO 31520 
31478 IF ZZ=1 THEN PRINT 

31480 IF VAL(LEFT#<38$ <I>,8)>>=VAL <D#<1)> 
GOTO 31490 
31482 GOTO 31500 

31490 IF VAL•:]LEFT#<SS$< I > , 8) )<=VAL(D$(2>) 

GOTO 31495 

31492 GOTO 31500 

31495 GOSIJB 51300 

31500 NEXT 

31520 IF GS=0 THEN PRINT "rSNO DATES FOR TH 
IS PERIOD" 

31521 PRINTSGOSUB 50000 

31522 IF A$="X" GOTO 30000 
31524 PRINT "IT '■ GOTO 31000 
33000 PRINT 

33002 ZZ=0'- PRINT "PLEASE ENTER WORD TO BE 
SEARCHED FOR" 

33004 INPUT "—>",TX$ 

33040 PR I NT "IT 

33042 FOR 1=1 TO 100 

33044 IF SS$a> = "" GOTO 33400 

33100 FOR 11 = 1 TO 32-LEN <. TX$ ) +1 

33102 IF TX$=MID$<SS$(I>,11 + 16,LEN <TX$ > > TH 

EN HH$=SS$ < I > = GOSIJB 51900 : GOTO 33160 

33140 NEXT II 

3316© NEXT I 

33400 PRINT 

33402 GOSUB 50000 

33404 IF fl$="X" GOTO 30000 

33406 GOTO 33000 

40000 IF 3S$a> = "" THEN 40004 
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40002 GOTO 40 060 
40004 PRINT r“ 


color magnenta type (CTRL. ) - (3 ) 


40006 PRINT "fSJDOESN•'T MAKE SENSE, 
40008 PRINT "NO DATA EXISTING®" 
4001© GOSUB56000 : GOTO 1100 L< Co 
40060 PR I NT " LT '■ PR I NT 
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mmodore key ) — (4 ) 


40062 PRINT "m-MW SAVE BATES ON TAPE OR B 

isk 

40065 PRINT:PRINT:INPUT" TAPE OR BISK OVD 
> ", IMt 

40070 IFIN$="T"THEN40100 
40075 IFINtO"B"THEN40065 
40080 PR INT :PRI NT : GOSUB50000 : IFAt=" X" THEN1 
100 


40085 OPEN1,8,2,"@0:BATES,S,W" 

40090 FOR I “ 1 TO 180 : 1 FSSt < I > * " " THEN I=100 '■ GOT 
040095 

40092 F'R I NT# 1, SSt < I ) 

40095 NEXTI:CLOSE!=GOTO40500 
40108 PRINT:PRINT 

40102 PRINT "PLACE BATA TAPE IN RECORBER" 
40300 PRINT- 

40302 GOSUB 50000: IF A$="X" THEN 1100 
40460 OPEN1,1,1,"BATES" 

40462 FOR 1 = 1 TO 100 
40464 PRINT#1,SSt<I) 

40466 IF 8St< I THEN 1 = 100 

40468 NEXT I 
40470 CLOSE1 

40500 PR I NT : PR I NT " ISREflBV®" 

40502 PRINT:GOSUB 56000 ; GOTO 1100 
40504 PRINT- 
50000 GET At 

50010 PRINT "IFRESS ANY KEY TO CONTINUE !" 


50012 PRINT " TO QUIT PRESS X. ST' 

50020 GET At: IF 04 :="” GOTO 50020 
50040 RETURN 

50100 A=0:PRINT * 

50102 INPUT "PLEASE SELECT OPTION A 

50104 IF ABS<A)Ofl THEN PRINT "fSFOSITIVE N 
UMBERS PLEASE !!!":GOTO 50102 
50106 IF I NT (fl)OR THEN PRINT "^INTEGER NU 
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MBERS PLEASE i!!" : GOTO 50102 

50108 IF A<0ORA>5 THEN PRINT "WRONG NUMBE 

R !!!" ; GOTO 50102 

50120 RETURN 

50200 PRINT "WRONG ENTRY •••• PLEASE REPEAT 
!":RETURN 

50500 NIK2) =28- IF J/400»INT<JX400> THEN MD 
(2 >-23 '• RETURN 

50520 IF J/100“INT(J/100> THENRETURN 
50540 IF J/4-INT< J/’4> THEN NIK2>=29 
50560 RETURN 

51000 TN-T : FOR 12=0 TO M-1 : TN-TN+MD (. I2> ■ NE 
XT 

51500 J8=.J~ 1 '• QV- J+1 NT < J0/4 > -1 NT < J8/100 > +1. N 
T < J0/400 > +TN-2 
51520 QT=QV~7*INT <QV/7> 

51522 RETURN 
51900 KK*=3S* < I > = 03=03+1 

51902 pr i nt " nr; n i d* < kk$ , 5 .• 2 >;" /"; n 1 d* c kk* , 

7,2>;" " ; LEFT * < KK*.. 4 >.; 

51904 F'R I NT " < " j MID* < KK*, 9,2 > i " . " J MI !)■$ < KK 
, 11.. 2 >" -"; 

51906 PRINT MID$<KK*,13,2 > J".”;MID*<KK*,15 

j 2>;">" 

51905 PRINT TAB <5 >;MID*CKK*,17,32> 

51910 22=22+1 

51912 IF 22011 THEN RETURN 
51914 22=0 

51916 PRINT:PRINT "JFRESS ANY KEY !" 

51918 GET T3*•IF TS*="" THEN 51918 
51920 RETURN 

52000 PR I NT " fS" ; MIB* < HH*, 9,2 > J " . " J MID* <. HH*, 

11 , 2 > 

52002 PRINT MID*(HH*,13,2>;".";M1D*(HH*,15 
_,2>.;" " 

52004 PRINT RIGHT*< HH*,32> 

52010 RETURN 

53000 A*2=PRINT 

53002 INPUT " —> 11 M*,' T* j J* 

53004 IF T$="0" THEN RETURN 
53020 A=1 

53022 T*=R I GHT* ( " 0 " +T*, 2 > ■ M*=R I GHT* < " 0" +l'1* 
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53024 D*«J*+M*+T$ 

53026 T-VAL<T$):M='v'AL<M$) : J“VAL(J$) 

53028 IF M< 1 OR MM2 THENGQSUB 50200 ; RETUR 
N 

53040 GOSUB 50500 : GOSUB 51000 

53042 IFT>MD< M)ORLEN<D$ > O8THENGOSUB50208 : 

RETURN 

53080 R*0=RETURN 

55000 DRTFl JANUARY, 31, FEBRUARY, 0, MARCH ,31, 
RPRIL,30,MAY,31,JUNE,30 

55001 DATA JULY,31,AUGUST,31,SEPTEMBER,30, 
OCTOBER,31,NOVEMBER,30,DECEMBER,31 

55020 DATA MONDAY, TUESDAY, WEDNESDAY, THiJRSD 
AY 

55021 DATAFRIDAY,SATURDAY,SUNDAY 

55040 DATA"FIRST DATE (MONTH,DAY,YEAR >" 

55041 DATA"LAST DATE <MONTH,DAY,YEAR>" 
56000 PR I NT ; PR I NT " SiPRESS ANY KEY ! Si" 

56010 GETTS* ; IFTS$=""THENS6010 

56020 RETURN 



Commodore 64 
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NOTES 




Economic 
Order Quantity 



To determine the "EOQ", this program calculates 
the most economical amount of item that should be 
ordered based upon annual demand in units, cost of 
placing an order to include cLerical preparation 
and production set-up and holding cost per unit to 
include storage, insurance and depreciation. 

Reorder point : 

When the number of units on hand gets down to this 
amount, it is time to reorder. It is calculated on 
weekly demand and the number of weeks required to 
receive an order. 


108 REM ECONOMIC ORDER QUANTITY 
110 PR I NT "W 

120 PRINT" ***** ECONOMIC ORDER QUANTITY 
*****":PRINT : PRINT 

130 INPUT" ANNUAL DEMAND <UNITS) "jD 

140 INPUT" COST OF PLACING AN ORDER ";S 
150 INPUT" HOLDING COST PER UNIT ";H 

160 PRINT 

170 INPUT" NO. WEEKS TO RECEIVE ORDER. " J L 
180 INPUT" CURRENT WEEKLY DEMAND ";D1 

190 Q=SQR(2*D*S/H> 

200 R=D1*L . 

210 PRINT: PRINT‘-PRINT <ctrl>-<6> 

220 PRINT" ECONOMIC ORDER QUANTITY : SfiS"; I 

NT<Q+.5);"laUNITS" 

230 PRINT <' TRL> _< 2> 
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an"; i 


240 PRINT" REORDER LEVEL 
NKR+.5); "MJNITS" 

250 PR I NT ' PR I NT ’■ PR I NT : PR I NT 
260 PRINT" SF'RESS flNV KEV TO CONTINIJ 

E" 

270 GETfl#'IFfl$=""THEN270 
280 GOTO110 
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Calendar 



This program allows you to print a calendar for 
any month or year past 1582 on the screen or on 
the printer. You can get the calendar for a whole 
year (hit space bar after each month to continue], 
or for certain months (e. g. enter "1-3" if you 
want a calendar for the months of January through 
March) . 

2 P0KE53281,3: F'R I NT" nmmm" 

3 print" r* 

w*. 

7 PRINT" m 

m 

10 PRINT" m « C fl L E N n R R!U 

sfc# 

15 PRINT" m 

23 pr i nt " 

'WM 

30 FOR. I = 1TQ2000 : NEXT ■ PR I NT " IT : P0KE53231,15 

40 PRINT"THIS PROGRAM PRINTS A CALENDAR F 
OR ANY YEAR PAST 1532" 

45 PRINT': PR I NT "THE PROGRAM STOPS AFTER EAC 
H MONTH. 

47 PRINT"PRESS ANY KEY TO CONTINUE" 

50 PRINT:PRINT:PRINT"ENTER THE YEAR NOW " 
52 PRINT'PRINT'PRINT 
58 PR I NT': PR I N'T': PR I NT 
6© INPUT" YEAR" J2$ 
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62 PR I NT" WMBttliFROM MONTH TO MONTH? <13*RLL 
MONTHS) 

64 INPUTMO$ 

65 MA=VAL<MC$) : IFMA=13THENMR*1:ME*12=GOTO? 
0 


66 FOP. I ■ 1TOLEN < MOt) : IFMID* MOT ,1,1) = "- " THE 
N68 

67 NEXTI 

68 ME=VAL<MID$<MOT,1+1,2)) 

70 J2=VRLCJ2T)-1 

72 IFMR>METHENS5=-1=G0T075 


73 S5=1 

75 IFJ201581THEN77 

76 GOTO80 


77 PRINT'TTTHIS PROGRAM ONLY WORK WITH DATE 
S PAST 1582 !" 

78 PRINT "PLEASE ENTER A DIFFERENT YEAR !": 
PRINT:PRINT•PRINT:QOTO60 


80 S=37+J2+1NT < J2/4)-1NT < J2X100) +1NT < J2/40 


0 ) 

90 S=INTC<S/7-1NT<S/7))#7+0.5)-1 

100 IFS=-1THENS®6 

110 DIMT (. 126) , M< 12) , MTC 12) 

115 S2=S 

120 DATA31,28,31,30,31,30,31,31,30,31,30,3 
1 

130 FOR 1 = 1 TO 12 ; RE ADM <.!'>■ NEXT I 

135 FORI-1TO12 = RE ADMT <I):NEXTI 

140 J=J2+1 •• IFINT (. J/4)-J/4O0THEN190 

145 IFI NT < J/100 ) - J/100O0ORI NT < J/400 ) - J/40 


0«0THENM<2)*29 

190 IFMA=1THEN230 

200 S4=0=FORI=1TOMA-1:S4=S4+M(I) 

210 S4-S4+S:S3*S4-7#INT<S4/7> 

220 S"S3 

230 PRINT"ON SCREEN OR PRINTER 
235 GETFT '• I FFT= " " THEN235 


NEXT 


S/P)? 


240 I FFT= " P " THEN0PEN4,4 '• CMD4 
270 PRINT"3" 

230 DATA"# SJANUARYfS #"," SFEBRUARYH #","# 

# MARCH ##","## APRIL ##" 

290 DATA"### SMAYni ##*","#* HJUNEfl ###","# 

* JULY ###","# AUGUST ##" 
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300 DRIFT' aSEPTEMBERm % "# ESOCTOBERfS " 
NOVEMBER #% " DECEMBER #" 

310 

" 338U MO TO WE TH FR Sfl" 

320 B$ C3) = " »«**###########*##### " : F'R I NT • 

PRINT 

330 F0RK-MRT0MESTEPS5 = PR I NT " '’ '• 

IFF$="D"THENPRINT•PRINT 

340 PRINT" MM *"; M$<K); "####"; 

350 PRINT:PRINT:PRINTTRBC10 >;JZ* 

370 FOR I = 1T03 '■ PR INTB* < I ) 

400 NEXTI 

410 FORJ*0TO0 : M0*K : D=0:V=J#7 
420 F0RWT=1T07 

430 I FD>=M ( MO > THENS=WT~ 1 • NEXT J ’• GOTO470 

440 D*D+1 : T (. WT+S+V ) =D 

450 IFWT+S>~7THENS-@=V-V+21 ; GOTO420 

460 NEXTWT 

470 Z=1 

480 FORI“1103 ; PRINT" ", •FORJ=1T07 

490 I FT i Z > ~0THENPR I NT " "i • GOTO510 
500 PR I NT " H" ; RIGHT$ < STR$ T < Z > ) .• 2 ) ;• " «" ; 
510 Z=Z+1 

520 IFZ>126THEN550 

530 NEXTJ=IFI=3THENPRINT:GOTO480 

540 PRINT" "; : NEXTI 

550 FORI=1TO126 : T<I>=0:NEXTI 

555 IFF$="D"THEN562 

560 GETRRf:IFfifl$=""THENS60 

562 IFS5~~1THENGOSUB1000 

570 NEXTK : CL0SE4 >4 

580 PR I NT • PR I NT • INPUT " ANOTHER YEAR ? <■ V/N 

) " ; F* 

590 I FF$= " V " THENCLR : PR I NT " 71" ■ G0T06© 

600 PRINTPRINT"TILL NEXT TIME !" 

610 PRmi"'mmmmwE \! \" : end 

1000 IFK*2THENS»S2 ; RETURN 
1010 34=0 : FORI=1TOK-2 ; S4*S4+M<I> : NEXT 


1020 34= 


I NT < 34/" 


RETUR 


N 
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Bubblesort 



The following is a program that brings strings in 
alphabetical order. The number of strings and the 
strings have to be entered. The program can easily 
be modified, so that the strings are read from 
DATA statements or from a sequential file. 


10 REM BUBBLESORT FOR STRINGS 

20 INF'IJT"nSWJENTER NUMBER OF ITEMS : " ; RN 

30 DIMR$<RN> 

40 PRINT"CENTER STRINGS : " ; PRINT 
45 FORI“1TORN 

50 PR I NT I : INPIJT " ; fl$ < I > 

60 NEXT I 

70 REM # * * * % * BUBBLES 0 R T * * * * * * 

100 FORI“2TORN 
110 FORJ=RN TOISTEP-1 
120 I Ffl$ C J-1) <R» < J > THEN160 
130 X$=R$'-.J~1) 

140 fl$ ( J- 1 > =m ( J > 

150 Rf=Xf 
160 NEXTJ j I 

200 REM ######OUTPUT######## 

210 PRINT 

220 FOR1=1TORN 

230 F'R I NT I; R$ ( I ) 

240 NEXT- 
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NOTES 





With this program you have the following options : 
1 . Read data on disk or cassette. 

2. Write data on disk or cassette. 

3. New entry. First you have to enter the keyword 
(index, up to 30 characters). Next enter the text 
belonging with that keyword (up to 254 characters). 

The number of characters used is displayed in the 
top left corner. To delete, use the DEL key. To 
delete the whole entry, press the CLR/HOME key. To 
terminate the entry press the left arrow key. 

4. Delete entry. The keyword and the entry are 
erased (if existing ) . 

5. Search for keyword. You can search for all 
keywords with n @ n , or for a certain keyword, by 
entering that particular word. After the keyword 
is found you have the following options : 

M=back to menu 

E=show entry belonging to that keyword 
C=continue search 

P=print key-word and entry on printer. 

6. Go through indexes. Use the cursor up and 
cursor down keys to go forward or backward. 

7. Print all keywords and text on printer. 
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2 REM KEY-WORD 

4 REM BY ELCOMP PUBLISHING, INC. 

10 PR I NT " 21" = P0KE53281,12 

20 e v - w 

O R D" 

40 FQRI*1TO2000 : NEXT 

50 DI MNR$ < 100 ) , EI $ { 100 > , LI < 100 ) , RE < 100 > , £i <. 
50) 

60 PR I NT" 23" : P0KE53281,15 
70 PRINT"S^«tt«l»!I?*»iW»1ENIJE: " 

80 PRINT=PRINT"MflWlBB LORD DATA" 

90 PRINT" fln201 STORE DATA" 

100 PRINT" ar«3BW NEW ENTRY" 

110 PRINT" an4BH DELETE ENTRY" 

120 PRINT" SFS5ES SEARCH FOR WORD" 

130 PRINT" Ur«SBI] GO THROUGH FILE" 

140 PRINT" SWSSI PRINT DATA” 

150 GETAf:IFA$~""THEN150 
160 A=VAL(Af):IFR-0ORA>7THEN150 
170 ONAGOTO500,1000,1500,2000,2500,3000,35 
00 

500 P0KE55657,5 

510 PR I NT : INPUT " CASSETTE/D ISKETTE < C/D > " 
SPi* 

520 PR. I NT : I NPUT " FILENAME " J N* 

530 IFSP$*"C"THENOPEN1,1,0,Nt = GOTO560 
540 IFSP* = "D" THENOPEN 1,8,2, N$+ " , S, R," : G0T05 
60 

550 GOTO510 

560 INPUT#1,HI=INPUT#1,FR : INPUT#1,PO 

570 IFFR-0THEN590 

580 FOR I * 1TOFR : I NPUT# 1, S ( I > '■ NEXT 

590 FOR I ■ 1TOHI : I NPUT# 1, NAf <1) : I. NPUT# 1, LE 

592 IFLE-0THEN596 

594 FORK* 1TOLE : GET# 1, A$ ■ EI ■$ Cl ) *E I $ (I > +A$ : N 
EXTK 

596 I NPUT# 1, LI (I ) = I NPUT# 1, RE <.!'>'■ NEXT I 
600 CLOSE 1 = P0K.E55657,2 ■ GOTO60 
1000 P0KE55697,5 

1010 PRINTS NPUT"CASSETTE/DISKETTE <C/D) " 
; SP$ 

1 020 PRINT:INPUT"FILENAME";N$ 

1030 I FSP:I : * " C " THENOPEN 1,1,1, Nf : GOTO 1060 
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1040 IFSP$*"D"THEHOPEN1,8,2,N#+",S,W":GOTO 
1060 

1050 GOTO1010 

1060 PRINT#1,HI : PRINT#1,FR = PRINT#1,PO 
1070 IFFR-0THEN1090 
1080 FORI*1TOFR:PRINT#1,8Cl>:NEXT 
1090 FORI-1TOHI=PRINT#1,HR#<I>•PRINT#1,LEN 
<EI#< I > ) ■ PR I NT# 1, EI#a > ■ PR I NT # 1, LI ( I ) 

1095 PRINT#1,REa): NEXT 
1100 CLOSE1 : P0KE55697,2:GOTO60 
1500 IFFR-0THEN1508 
1502 Lfl=S<FR):FR“FR-1:GOTO1510 
1508 HI=HI + 1 '• LR-HI. 

1510 El# ( Lfl ) - " " 

1515 PR I NT " SWHOTiiWKEY-UORIi : S3" 

1520 PR I NT : INPUTNfl# < Lfl ) 

1522 IFLEN< NR#(Lfl >> >30THEN1515 

1525 PR I NT " ^VVinniViraE I NTRflG : S3" : GOTO 1573 

1.535 GETfl#: I Ffl#«" " THEN 1535 

1540 IFPEEK(203)“70RPEEK(203>-2THEN1535 

1545 IFPEEK<203 >-57THEN1600 

1550 IFfl#OCHR# (19 )THEN 1560 

1555 EI # < Lfl CR < Lfl > =0 : GOTO 1525 

1560 I Ffl#OCHR# ( 20 > THEN 1573 

1570 I FEL>0THENPR I NT 11 MKU" EI # < Lfl > ; " " : EI # < 

Lfl >=LEFT#(EI#(Lfl >,EL-1> 

1572 GOTO1577 

1573 PR I NT " EI # < Lfl > ; " " 

1575 EI#(Lfl > *EI#<Lfl >+fl# 

1577 EL“LEN(El#(Lfl > > 

1580 PR I NT " 53 M" EL : PR I NT " MStlSI" EI # < Lfl > ; " a 

II 

1590 IFEL>253THEN1570 
1595 GOTO1535 

1600 IFPO=0THENPO«1-LI(1>=1:RE<1)=1:GOTO60 


1605 IFP0=0THEHP0 = 1 : LI < 1 >■ 1 '• RE (1 ) = 1 : GOTO60 


1610 I FNfl# <Lfl >>Nfl#(PO>THEN1638 

1620 RE(Lfl>“PO -LK Lfl> =LI (PO> : RE(LI (PO> >“Lfl 

: L. I < PO ) “Lfl : PO=Lfl : GOTO60 

1630 IFNfl# < Lfl > <Nfl# ( LI<PO)> THEN1650 

1640 RE <Lfl >“PO:LI(Lfl)=LI<PO):RE(LI(PO >>“Lfl 
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: L I PO > =LA : GOTO60 
1650 SE-PO 

1 660 i f < nr* se > <nr* < lr > > find < nr* < lr > <nr* < re 

<SE>>)THEN1680 
1670 SE*RE<SE> =GOTO1660 

1680 LI < LR > =SE : RE < LR ) “RE < SE) 'Ll < RE '■ SE ) ) =Lfl 
:RE < SE)=LR ; GOT060 

2000 PR I NT " EKBiitDELETE WHICH WORD ?M" 

2010 INPUTSE* 

2050 SE-PG 

2060 IFSET-NRT(SE)THEN2100 

2070 IFRE < SE > =POTHENPRINT" nHHHWORD NOT FO 

IJND ! " ' GOTO70 

2080 SE=REC.SE>•GOTO2060 

2100 LICRE <SE >)=LI<SE) ; RE(LI<SE))“RE<SE > = I 
FSE*POTHENPO-RE<SE> 

2105 PRINT"M0K ";SET;" ERASED" 

2110 FR-FR+1 

2120 S<FR)-SE--GOTO70 

2500 Nfl=0 : PR I NT " SOflfciilSEflRCH FOR WHICH WOR 

I, m 

2518 INPUTSE* 

2520 SE=PQ 

2530 IFSET*"@"THEN2800 

2535 IFSE*-MIDT<NR$< SE>,1 ,LEN <SET> > THENNfi- 

Nfl+1 ; GOTO2800 

2540 IFRE <SE)“POTHEN2560 

2550 SE=RE<SE) : GOTO2530 

2560 I FSEfO " rj " RNDHR=0THENPR I NT " WBJORD NOT 
FOUND !":GQTO70 
2570 GOTO60 

2800 PR I NT "3" : PR I NT SE; NRT(SE) 

2820 pr i ht " -mmmmmmmmmm sr«: an itt i hue 

■WTRV BENUE SR I NT" 

2830 GETfif:IFRT*""THEN2830 
2840 IFRT*"C"THEN2540 

2850 I FAT*" E " THENPRI NT " ; EI T < SE ') : GOT 

02830 

2860 IFfl$="M"THEN60 

2865 IF AT="P"THENG0SUB3510:CLOSE1 

2870 GOTO2830 

3000 SE-PO 
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3010 PR I NT "IT 
3015 PRINT:PRINT 

3017 PR I NT " 55# " ; TAB < 2 > " r«" NAf < SE > 

3020 GETAf:IFA$~""THEN3020 

3021 GOTO3028 

3022 IFSE-PQTHENPRI NT " ii#"; 

3025 IFRE <SE > =POTHENPRINT" SK"; 

3026 PR I NTT AB < 2 > ; " HS" ; NA$ <■. SE ) : RETURN 

3028 I FR$= " M" THENSE-RE < SE > '• GOSUB3022 : GOTO 
020 

3030 I FA$* " n" THENSE~L I < SE ) '• G0SUB3822 : GOTO 
020 

3040 IFA$="M"THEN60 
3050 GOT03020 
3500 SE=PO=G0SUB3510 

3502 SE”RE(SE):IFSE*P0THENCL0SE1 : GOTO60 
3504 GOSUB3530■GOTG3502 
3510 OPEN1j 4 

3515 PR I NT# 1, CHRf '114 > " KEY-WORD " 

3517 PR I NT# 1, " ==*=*===•' 

3520 PRINT#1:PRINT#1-PRINT#1 

3530 PRINT#1,CHR$(14)NA$< SE)CHRf<58> 

3540 PRINT#1 

3550 PR I NT# 1, CHR* 'll 5 > EI $ < SE ) 

3560 PRINT#1:PRINT#1:PRINT#1 
3580 RETURN 



NOTES 
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The following program calculates the monthly 
payment on a mortgage, based upon the mortgage 
amount, the interest rate, and the number of years. 
The program also calculates the accumulated 
interest (for tax purposes) and the accumulated 
principal for a certain period. Example : If you 
start your payments in July of a given year and 
you need to know the accumulated interest at the 
end of that year, answer the question ’’ENTER 
BEGINNING PMT. NO.” with ”1”, and "ENTER ENDING 
PMT. NO.” with ”6”. The corresponding numbers for 
the following year are ”7" and ”18". 


1 

REM E. 

S. W02NIRK 

b 

- 1 

cl b 


R E M ' ' M 0 R T G R G E B ft L 

RNC 

E 

Fi N Jj IH T E RS T P fi V 1*1 c 

NT 

r;;- m 





5 

PRINT l! 

’"1' 1 




b 

PRINT ” 

MORTGAGE I: 

RLE 

NC 

E AND ACCUMULATED” 

r 

PRINT ” 
PPTMT 

INTEREST & PRINCIPAL. AMOUNTS" 

## 

10 

! 1 . J. ; *! ! 

•ijij •$: : M $ 'M l! 

PRINT 


20 

PR I NT 

n MORTGfiGE! 

RfTT 


$"; ■ INPUT P 

30 

PRINT 

"INTEREST 

RAT 

E 

N : ' : INPUT R 

48 

PRINT 

"NO. OF VE 

FiRE 


.• • i N P Li ! 1 

50 

H h: 1 c: 

00 




60 

D=<P*R 

>/<i - (l +R > 

“K - 

1 z 

,#T> > 

70 

B= I NT' 

( jj iiii-1 0 0 -h M 5 ) 

/ie 

0 


80 

PRINT 

" MONTHLY F 

MT. 


■$"; n 

90 

PRINT 
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100 

1 IT 

PRINT 

"ENTER BEGINNING PMT. 

H U« .> • IN h' 

U 1 

104 

•I 

PRINT 

"ENTER ENDING PMT. NO 

";:INP 

UT 




110 

B=l/< 

< R+1 > T-E > * < C D# ( \ < 1 +R > T- 

~E> - 1> >/R+P 

1 «:!0 

PRINT 



130 

PRINT 

"BRL. RT PMT. NO. 

"■■■■>$"; I NT < 

B*1 

30+ . 5 > 

1 00 


140 

RR=B~ 

1 / < ( R+1 > T“ d N~ 1 > ) # < ( D# 

< ( < 1+R > T- ( N 

-1 > 

>-l>>/ 

R+P > > + (E-N+ 1>#D 


150 

PRINT- 



160 

PRINT 

"TOTAL RCCUMULRT'ED IN' 

TEREST AT" 

170 

PRINT 

"END OF PMT. NO. E; 

I NT < 

HR* 

100+.5 

> / 1 00 


18© 

PRINT- 



180 

PRINT 

"TOTAL ACCUMULATED PR 

INCIPAL AT" 

200 

PRINT 

"END OF PMT. NO. 

I NT <( 

P-B 

>#.100+ 

. 5 > / 1 00 


210 

PRINT- 

: PRINT 


220 

PRINT 

” Si'" E ■" -END SPACE BAR=HI 

El-'-i CALCULAT 

ION 

u 




230 GET m ■ IF-' A$~"" THEN 230 
240 IF fl$="E" THEN EMU 
250 GOTO 5 
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The program described here turns your COMMODORE 64 
home computer into a powerful business computer. 
The program is a combination of a mailing List 
program, an inventory control program, and an 
invoice writing program. The mailing list and the 
inventory control programs can be used as 
standalone programs. The invoice writing program 
needs the other two programs : the mailing List, 
to retrieve customers' addresses, and the 
inventory controL, to retrieve description and 
prices for the different items. The most powerful 
feature of the business package is, that everytime 
you write invoices [i.e. sell items), the program 
automatically updates the inventory! 

The program is completely written in BASIC so that 
it can be easily modified to serve special needs. 
The program employs four disk files on a separate 
DATA disk : 

MANAGEADR.SEQ 
MANAGEPRO.SEQ 
ADDRESSES.REL 
PRODUCTS.REL 

The two files with extension "REL" are random 
access files, where each record can be read easily 
with one access to the disk. The file ADDRESSES. 
REL can hold 1000 records (addresses) at a Length 
of 82 characters per record. The file PRODUCTS.REL 


Business 

Package 
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can hold 1800 records (information about the 
items) at a Length of 44 characters per record. 

The records are set up as follows : 

1) addresses 


name (first and Last) 
street (number and name) 
ci ty 

zip-code (with state code) 
phone number (with area code) 
parameter 1 
parameter 2 


19 characters 
19 characters 
13 characters 
8 characters 
12 characters 
2 characters 
2 characters 


2) items (products) 

19 characters 
4 characters 
6 characters 
4 characters 
6 characters 


n pui on 
reorder Level 
retaiL price 
quantity on stock 
wholesale price 


If you add up the numbers of characters, you will 
get totals of 75 and 39 respectively, whereas the 
lenght of a record is 82 and 44 respectively. This 
is because the carriage return at the end of each 
line also count as a character. 


When you start the program, the following question 
will appear on the screen : 

ADDRESS-/PRODUCTFILE EXISTING (Y/N) 

When you start the program the very first time, 
answer this question with "N n . The reason for this 
question is, that a data disk has to be prepared 
and the four files mentioned above have to be 
named. Later on, skip this procedure by answering 
with "Y". The program will then remind you to 
place the data disk in the drive, after which the 
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main menu will appear on the screen : 
MAIN MENUE 

1. ADDRESS OPERATIONS 

2. PRODUCT OPERATIONS 

3. INVENTORY LIST 

4. INVOICE WRITING 

5. PRINT LABELS 

6. LIST OF LOW ITEMS 

PLEASE ENTER NUMBER (1-6) ! 


To select an option, just press the corresponding 
number. Option 1 allows you to add/delete/change 
addresses. Option 2 aLlows you to do the same 
things with items. Option 3 gives you a survey 
over your inventory with either wholesale or 
retail prices. Option 4 allows you to write 
invoices on a printer hooked up to your computer. 

The customer's address and the descriptions and 
prices for the items are retrieved from the data 
files ADDRESSES and PRODUCTS. Option 5 allows you 
to print labels from addresses stored in the 
mailing list. Option 6 gives you a list of items 
with a quantity on stock which is below their 
reorder level. 


The options in detail : 


1. Address operations 


If you select this option, you wilL hear the disk 
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drive working and the following menue should 
appear : 

1) ENTER NEW CUSTOMER 

2) CHANGE ENTRY 

3) DELETE ENTRY 

4) SEARCH/PRINT ENTRY 

'X' FOR MAIN MENUE 

As you can see you have four options here. 

If you want to enter a new address, press "I". The 
computer will tell you the number of the last 
address entered and the number of the next address 
to be entered. Usually this will be the next 
higher number, unLess you have deleted an address. 
In this case the computer will write the new 
address into the space of the deleted address. 

If you want to change an address, select option 2. 
The computer will ask you for the number of the 
address to be changed. After you have entered this 
number, the computer wilL Load the address from 
disk and will display it. If you answer the 
question "CORRECT ADDRESS (Y/N) with 'Y', then the 
cursor wilL jump to the Line with the name. Now 
you can do your changes, or press RETURN, if this 
Line in the address should not be changed. After 
finishing the Last Line in the address (PARAMETER 
2], the computer will save the changed address on 
disk. Now you have a choice between changing 
another address, or returning to the menu. 

If you want to delete an address, select option 3. 
The computer will ask you for the number of the 
address to be changed. After Loading and 

displaying the address, the computer will ask you 
"CORRECT ADDRESS (Y/N)". If you answer with f Y\ 
the address will be deleted from the disk. 

If you want to search for an address or print 
addresses (complete with phone numbers and 
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parameters) on a printer, select option 4. The 
computer will ask you for the criteria to be 
searched for. Enter the proper line number here 
[for example "2" if you want to search for a 
particular name). After you have entered the name 
you are Looking for (first and Last ! ) the 
computer will try to Locate the address on the 
disk. After the address was found and displayed, 
you have a choice between continuing the search 
(for another address with the same name), or a 
return to the menu. 


2. Product operations 

With product operations, you can do exactly the 
same thing with the items stored in the product 
fiLe, that you can do with addresses as described 
above under option 1. 


3. Inventory List 

This option allows you to get a survey over your 
inventory, with all the information stored in the 
product file. You can send the output to a printer 
or to the screen to include wholesale and retail 
prices with extensions. 


4. Invoice writing 

Select this option, if you want to write invoices 
on a printer hooked up to your computer. The 
program will ask you for the date of the invoice, 
the first invoice number, and the customer number. 
At this point the address with the number entered 
will be loaded and displayed. To avoid mistakes, 
the computer will ask you "CORRECT CUSTOMER (Y/N)". 
Enter "Y" if it is the customer you are looking 
for. Next the computer will ask for the tax rate 
(in %) and the number of different items you want 
to sell to that particular customer. Next you have 
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to enter the item number and the quantity to be 
sold. The computer will Load the information for 
that item from the product file. If the quantity 
to be sold brings the quantity on stock for that 
particaular item below its reorder Level, you will 
get a warning on the screen. If the quantity on 
stock is too Little, or the item can not be found, 
then you will get the message "ITEM NOT IN STOCK". 
After you have entered a L L item numbers and 
quantities, the invoice will be printed on the 
printer. After completion, you have a choice of 
writing the next invoice (with invoice number 
incremented automatically) or returning to the 
menu. 


5. Print labels 

This option allows to print Labels with your 
customers addresses (address without phone number 
and parameters). Two addresses are printed in one 
line. You must enter the numbers of the first and 
the last address to be printed. 


6. List of Low items 

This option is helpful, if you want to decide what 
items you should order from your distributor. You 
have a choice of Listing all items with a quantity 
on stock below the reorder Level on the screen or 
on a printer. 

Before you start writing invoices you need to have 
at least one address stored in the mailing list 
and one item stored in the inventory file, 
otherwise you will get an error message, "NO DATA". 
To get information into the mailing list and the 
inventory control, select option 1 for addresses 
and option 2 for items, while in the main menu. 

Then select option #1 from the menu (ENTER NEW 
CUSTOMER or ENTER NEW PRODUCT). 
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The computer keeps track of the addresses and 
items stored and will display the current highest 
number and the present number. 

Once you have stored some addresses and some 
inventory items you can write your first invoice. 
Select option 4 while in the main menu to do so. 

The program then will ask you for the date and the 
first invoice number (which will be incremented 
automatically). Next, enter the number under which 
your customers 1 addresses are stored in the file, 
"ADDRESSES". If you don't remember the numbers, 
you may jump to "ADDRESS OPERATIONS" and use the 
SEARCH option there. After entering the address 
number, you have to enter the number of different 
items, the item numbers and quantities. Next enter 
the discount in % and the shipping costs in $. The 
invoice will now be printed on the printer on 
standard paper. 

The program will automatically update the 
inventory everytime you write an invoice, i.e. the 
quantity on stock will be lowered by the amount 
sold of a particular item. If you write an invoice 
to a customer whose address is not in the mailing 
List yet, enter the address and the address will 
be stored automatically in the mailing List. 

Sometimes it will happen, that you need to update 
the inventory yourself. For example, when you 
receive a shipment, or you discover that parts of 
your inventory were damaged. In this case, select 
option 2 while in the main menu and option 5 
(CHANGE INVENTORY) while in the menu for product 
operations. After you have found the correct entry, 
you must enter the change in stock. For example -5, 
if you found 5 damaged products, or 200 if you 
received a shipment from your distributor. 

Before you write the first invoice, you must 
change the address in Lines 30600 through 30620 to 
your own address. Lines 30500 and 30510 contain 
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information about the bank. These Lines wiLl need 
to be changed to refLect the needs of your 
business. 


10 REM#******#^*#*#^##***^ BUSINESS 

programs 

20 REmwmmMMmwwmm 

70 REf'1**s«s4«5t!*Jf.^5+!i*s*N<!*5He!t;*i4e!+5jf:s+t BV ELCOMP PLI 
BLISHING INC. i 

90 FORI=0TQ7:READMfl#< H,KUU >:NEXT 
90 FOR I-0TO5 '• REABMP# < I>, PR ( I > : NEXT 
95 BI MM 1 ( 30 ) , N1 ( 30 > , M1 $ (. 30.. 5 > 

100 PRINT"3" 

110 PR I NT " :«(»»I=IDBRESS--/PRQDUCTF ILE EX I ST IN 
G" 

120 INPUT 11 )W»|<:V/N> " AN* 

130 IFAN#®"V"THEN500 
140 IFAN$<>"N"THEN110 

150 PR I NT" nslSlFL ACE BLANK DISK IN DRIVE" 
160 PRIHT"Hi»»»»»|-» 

170 PR I NT " KMJID ISKETTE WILL BE FORMATTED <E 
RASED> AND 

175 PRINT"FILES NECESSARY WILL BE PREPARED 

n 

190 INPUT"W»FEADY ? <V/N> "AN# 

190 IFAN$<>"V"THEN100 

200 PRINT"MFLEASE WAIT ABOUT 7 1/2 MINUTE 

C " 


210 OPEN 15.. 8,15 

220 PR I NT# 15," NEW0 '• INVENTORV, RH" 

230 QPEN4,8,4, "0 '• MAN AGE ADR, S, W" 

235 LA*0:FA=0:PRINT#4,LA•PRINT#4,FA 
240 CL0SE4 

245 OPENS,8,5,"0:MANAGEPRO,S,W" 

250 LP«0 : FP*0:PRINT#5,LP:PRINT#5.FP 
255 CLOSES 


260 QPEN2,8,2,"0•ADDRES 
270 PR I NT# 15, " P " CHR$ < 2 'i 
$<A> 


SES, L, "+CHR#>::82> 
CHRf<232 >CHR#C3)CHR 


280 PRINT#2,"END" 


290 CL0SE2 
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310 QPEN3,8.. 3, " 0 ; PRODUCTS, L, " +CHR$ (44 > 

320 PRINT#15,"P"CHR®<3 >CHR®(58>CHR®<7>CHR® 
< 1 ) 

330 PRINT#3,"END" 

340 INPUT#15, A,B®,C,D ; CLOSES : CLOSE15 
500 PR I NT" ZimM ********* BUSINESS PROGRAMS 
************ 

520 PR I NT" '.SWOPLEASE INSERT DISK WITH ADD RE 

525' PRINT" PRODUCT FILES" 

530 GOSUB50000 

550 pr i nt " :imw»w »nfl i n menue " = pr i nt " — 

-- -- 11 

560 PR I NT ■■ PR 1 NT " Ml. ADDRESS OPERATIONS" 

570 PRINT : PRINT"M2. PRODUCT OPERATIONS" 

580 PRINT:PRINT"M3• INVENTORV LIST" 

590 PR I NT '■ PR I NT " M4. INVOICE WRITING" 

600 PRINT-PR I NT "Hf3. PRINT LABELS" 

605 PRINT ; PRINT"MS. LIST OF LOW ITEMS" 

610 PRINT"SMflJPLEASE ENTER NUMBER Cl”6>" 
620 GETNR : IFNR*0QRNR>6THEN620 
630 ONNRGOSUB900,9900,19900,30000,39908,44 
900 

640 GOTO550 
900 GOSUB60000 

1000 PRINT" riSWWWs * * * * * * * * * ADDRESS OPERAT 10 
N c; 

1010 PR I NT " WSKiillENUE • " : PR I NT " " 

1020 PRINT ; PRINT"Ml. ENTER NEW CUSTOMER" 

1030 PRINT : PRINT"M2. CHANGE ENTRY" 

1040 PRINT': PR I NT "M3. DELETE ENTRY" 

1050 PRINT:PRINT"M4. SEARCH/PRINT ENTRY" 
1060 PRINT"MMH'X" FOR MAIN MENUE" 

1070 GETAN$:IFAN®*""THEN1070 
1080 IFAN®*"X"THENRETURN 
1090 A1*VAL<AN® >:IFA1<1ORA1>4THEN1070 
1100 ONfl1GOSUB2000,4000,6000,8000 
1110 GOTO1000 

1120 0PEN4,8, 4, " @0 : MANAGEFlDR, S, W " 

1130 PR I NT#4, LA •• PR I NT#4, FA 
1140 IFFA*0THEN1180 
1150 F0RI*1T0FA 
1160 PRINT#4,FAa> 
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1170 NEXT 
1180 CLOSE4 
1190 RETURN 

2000 PR I NT" HSltfl ************* NEW ENTRY ** 
**********" 

2005 FOR I = 1 TO? : KU$ < I > = ”--— 

-" : NEXT 

2010 IFFR=8THENRK=Lfl+l : GOTO2030 
2020 AK»Ffl<Ffl>:FR~FR™1 

2025 IFflK> 1000THENPRI NT " :»MSDS>F ILE FULL ! 1 ' 
"=GOTO2280 

2030 PRINT"MMHIGHEST CUSTOMER NUMBER ; ";LR 
2040 PRINT" JSHFRESENT CUSTOMER NUMBER : " ; RK 
2050 PRINT:PRINTMfi#(0>;RK 
2060 FOR1=1TO? 

2070 PRINTMfl$< I > : INPUT ,, miillVl>illiiilVi ,i ; K 
Uf (I) 

2080 NEXT 

2130 PR I NT "^EVERYTHING OK (V/N) " • 

2140 GETAN# ; I FAN#**""THEN2140 
2150 IFAN#*"N"THEN2000 
2160 IFRNfO" Y " TIHEN2140 
217© PRINT"K#HiK SAVING ADDRESS" 

2180 HI = I NT ( AK/256 ) • LO-~RK~H I *256 ; PO= 1 

2190 OPEN15,8,15 

2200 0PEN2,8,2,"ADDRESSES" 

2210 FOR1=1TO? 

2220 KU# < I > =LEFT# (. KU# < I > , KU < I > -1') 

2230 PR I NT# 15, " P " CHR# < 2 ) CHR# < LO ) CURT < HI CI4 
R$ C. PO ) 

2240 PR.INT#2,KU:f (I) 

2250 PO=PO+KUa> 

2260 NEXT:CL0SE2 ; CLOSE15 =IFfl101THENRETURN 

2270 IFAK>LATHENLA=LA+1 
2275 GOSUB1120 

2280 PRINT"MW»ISNB*NEW ENTRY mm* 

MENUE" 

2290 GETRN#=IFAN#*""THEN2290 
2300 IFAN#*"N"THEN2000 
2310 IFAN#<>"X"THEN2290 
2320 RETURN 

4000 PRINT'TMS *********** CHANGE ENTRY * 
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4010 PRIHT"3STOBEflRCH FOR WHAT CRITERIA ?" 
4020 PRINT ; PRINT = FORI=0TO7 
4030 PRINTI + 1 > 

4040 MENT 

4050 GETAN:IFAN=00RAN>3THEN4850 
4055 AN™AN-1'PRINT 

4060 PRINTMA* CAN) : INPUT , \ ,_ »**MW»»»»»***i ,! ; 
KU* 

4065 LE=LEN < KU* ) = IFLE--0THENPRI NT" ITT' = G0T04 
060 

4070 11=1■F1=0 : F2=0 
4075 GO'SUBA000 
4080 11=1+1 

4090 IFF1=1THENIFF2-0THEN4200 
4100 F3= 1 I FF 1 =0THENZW*= " " : G0T04120 
4110 2W*=" MORE " 

4120 PR I NT: PRINT" NO " 2W*" DATA !" 

4130 PRINT"WW»ISNBs s CHHNGE NEXT M 

■MENUE"; 

4140 GETAN* '• I FAN* = " " THEN4140 
4 J. 50 I FAN* = " N " THEN4000 
4160 IFAN*O"X"THEN4140 
4170 RETURN 

4200 pr i nt " 'mmmm" 

4205 FORI=0TO7=KU*<I>=KU*<I>+" 

":KU*(I)=LEFT*<KU* <I>,21) 

421 0 pr i nt"; ku* c i >; next 

4220 PR I NT : I INPUT " CORRECT ENTRY < V/N > " J AN* 

4230 IFAN*="V"THEN4250 

4235 IF AN*<> " N " THENPRI NT " 7ITT' '■ GOTO4220 

4240 IFAN-0THENF1=1 ; F2=1=GOTO4098 

4245 GOTO4075 

4250 PR I NT" 

4260 FOR I = 1 TO? = I INPUT " lJ»liB®|l*®»ll^®§t|l»II58 ,, , KU* 
CI):NEXT 
4265 PRINT"M 

it 

4270 AI<=VAL < KU* < 0 > > = G0SUB2170 : G0T04130 
6000 PRINT"»I *********** DELETE ENTRY * 
**********" 

6010 PRINT"WIWISEARCH FOR WHAT CRITERIA ?" 
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6020 PRINT:PRINT:FORI-0TO7 
6030 PRINTI + 1MAT(I) 

6040 NEXT 

6050 GETRN '• IF R IN=0 0 R RN>8THEN6050 
6055 RN=RN-1-PRINT 

6060 PR I NTMR$ <. RN ) • INPUrilllllllllllllirj 
l<U$ 

6065 LE=LEN<KU$) : I FLE=0THENPR I NT " TT' : G0T06 
060 

6070 11=1:F1=0-F2=0 
6075 GOSUB9000 
6030 11=1+1 

6090 IFF1=1THENIFF2=0THEN620@ 

6100 F3=l : IFFl=0THENZWt=" ":GOTG6120 
6110 ZW$=" MORE " 

6120 PRINT:PRINT" N0 DRTR !" 

6130 PR I NT " »W*»I8NB=DELETE NEXT SK5 

-MENUE"; 

6140 GETRN* '■ I FRN$= " " THEN6140 
6150 IFRN$="N"THEN6000 
6160 I FRNfO " X " THEN6140 
6170 RETURN 

6200 pr i nt " -mmmmr 

6205 FORI=0TO7=KU*<I>»KU*<I)+" 

": m$ < I>=LEFT$<KUf <I>,21> 

6210 PR I NT " KUt < I > : NEXT 

6220 PR I NT : I INPUT " CORRECT ENTRY < V/IN ) " j RIN$ 

6230 I FRIN$=" V 11 THEN6250 

6235 I FRN$<> " N " THE IN PR I NT " TTU" ■ GOTO6220 

6240 IFRN=0THENF1=1:F2=1=GOTO6090 

6245 GOTO6075 

6250 PRINT"! OK DELETING ENTRY ! 

II 

6260 ZW=VRL < KUf ( 0 ) > : HI = I NT < ZW/256 ) • LQ=ZW.H 

1*256 

6270 OPEN 15.. 8.. 15 

6280 OPEN2,8,2,"RDDRES3ES" 

6298 PR I NT# 15, " P " CHRf- < 2 > CURT ( LO > CHP.f ( HI > CH 
R$< 1 :> 

6300 PRIINT#2, "rr" 

6310 CLOSES:CLOSE15 

6320 I FZl'KLRTHEINFfl=Ffi+1 : FR ( FR ) =ZI,J: GOTO6350 


70 









6330 LA=LA~1 ; FORI-0TOFR=F0RJ=FRT003TEP-1 
6335 I FLR=FR < J > THENLFl=LA-~1 ■ FORK-J +1TOFR : FR 
•:! K•— 1 >~'FR(K> '■ NEXTK : FR-FR-l : G0T06345 
6340 NEXTJ•GOT06350 
6345 NEXTI 

6350 GOSUE1120:G0T06130 

8800 pr i nt " 'nssmwmmm**.*. search for entrv 

If: if if if if if if if if if if '' 

8003 INPUT"HOIJTPUT TO PRINTER OR SCREEN (P 
XS ">"; BRT 

8009 I FDR$<> "P"THENDRT="S" 

8010 PRINT" ^SEARCH BV WHRT CRITERIA ?" 
8020 PRINT:PRINT:FORI=0TO7 

8030 PRiNTi+i.;m$a> 

8040 NEXT 

8050 GETAN=IFAN=0ORAN>8THEN8050 
8055 AN-AN-1 '• PRINT ’• IFRN=8THEN8500 
8060 PR I NTMAT < AN ) : INPUT " 

KUT 

8065 LE-LEN ( KUT > : IF L E=© THE N P RIN T " TT3'' '• G0T08 
060 

8070 11=1 ; F1=0 : F2=@ 

8075 GOSUB9008 
8080 Il=I+l 

8030 IFF1 = 1 THEN I FF2=0THEHGOSUB87@0 '• GOTG807 
5 

8100 F3=1 ; IFF1=0THEN2W$=" "■PRINT:PRINT ; PR 
I NT : PRINT --GOTOS12© 

8110 Zm=" MORE " 

8120 pr i nt " mmmmmmmmmmsm no " ;zw 

DATA ! " 

8130 PR I NT " :t»»ISN»=CONT INUE SEARCH glXB 

=MENUE"; 

8140 GET ANT ’• I FANT= " " THEN8148 
8150 IFAN$="N"THEN8000 
8160 I PANTO" X " THEN8140 
8170 RETURN 

8500 PRINT"FROM”;MAT <8) 

8510 Input ” THiiiiiisiiWiiiiiiaiiiiMiir 1 k i 
8515 IFK1>LATHENK1=LA 
8517 IFK1<1THENK1=1 
8520 PRINT"TO";MAT < 0> 

8530 i nput" :■ K2 
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8535 IFK2>LfiTHEHK 2=L.R 
8537 IFK2<1THENK2”1 
8540 OPEN15,8,15 
855© 0PEN2, 8 , 2, " ADDRESSES" 

8560 FORIOK1TOK2 

8570 HI*INT<K/256)=LO-K-HI*256 

8580 PO=l : FORI=1107 

8580 PRINT#15,"P"CHR$(2 >CHR*<LO> CHR$<HI>CH 
Rf(PO) 

8600 I NPUT#2 , KU$ ( I > : IFKUf ( I > = ” ” THEN8630 
8610 PO=PO+KIJ( I > 

8620 NEXT I : KU$ ( 0 > •~STR$ (l< > : GOSUB8700 

8630 NEXTK 

8640 CLQSE2 : CLOSE15 

8650 G0TO8110 

8700 PR I NT" 

8720 IFDR**"P"THENOPEN7,4,7 : CMH7 
8730 FOR I =0TO7 : KU$ ( I > »KU* ( I > + " 

" : KU$< I > “LEFT# (KU* ( I > , 21 > 

8740 PR I NT " MHiltViWltBftiillir KU$ ( I > : NEXT 

8750 I FDRfO" S " THEN8780 

8760 PR I NT " :«ff.[®M»J«IHia::!S=CnNT INUE"; 

8770 GETAN#:IF ANf-O"C"THEN8770 
8775 RETURN 

8780 PRINT#7 : CLOSE7:RETURN 

8888 STOP 

8000 REM SEARCH 

8010 0NANG0T08100,8110,8120,8138,8140,8150 
, 8160 

8028 2W=VAL<KU$> : HI = INT(ZWX256> =L0=ZW-HI*2 
56 ; IF2W<10R2U>LATHENF2=1:RETURN 
8030 OPEN15,8,15 
8048 OPENS,8,2,"ADDRESSES" 

8050 P0~1:FORI = 1 TO7 

8060 PRINT#15,"P"CHR$(2>CHR#<LO >CHR$<HI>CH 
R$(PO> 

8070 I NPUT#2, KU# ( l > '■ I FKUS ( I > * " it " THENF2- 1 : G 
OTO8080 

8075 P0“P0+KU(I) 

8080 NEXT : F1~1 

8080 CL0SE2=CLOSE15 

8085 KU$ ( 0 > =STR$ ( ZW ) '■ RETURN 
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910 0 P 0 ~ 1 : G 0 T09200 
9110 p0=21 : G0T09200 
9120 P0=41 : GOTO9200 
913 0 P 0=5 5 : G 0 T09200 
9140 PQ=64 : GOTO9200 
9158 90=77 ; GOT09200 
9160 90=80 

9200 IF11>LRTHEHF2=1:RETURN 

9205 OPEN15,8,15 

9210 0PEN2,8,2,"ADDRESSES" 

9220 FORI=11TOLA 

9230 HI = I NT < I /'256 > = L0= I -H1 *256 

9240 PR I ITT# 15, " P " CHR* < 2 ) CURT- { LO ) CHR* < HI > Chi 

R*<1 > 

925© I NPUT#2, K1 * : IFK1 *= ” it " THENS310 

9260 PR INT#15,"P”CHR*<2)CHR*<LO > CHR*<HI>CH 

R* ( PO 

9270 INPUT#2,K1* =IFLEET*(K1*,LE > OKU*THEN9 
310 

9280 P0=1 : F0RK=1T07 

9285 PR I NT# 15, " P " CI-IR* < 2 > CHR* < LO > CHR* < HI > CH 
R*<PC> 

9290 I IT PUT #2, KU* C K > 

9295 PO=PO+KLKK) : NEXTK 

9380 CL0SE2 = CLOSE 15 : F1 = 1 ’• KU* < 0 > =STR* < I > : RE 
TURN 

9310 NEXTI 
9320 CLOSE2:CLOSE15 
9330 F2=l : RETURN 
9900 GOSUB60100 

10000 pr i nt " nmmmmmwm product operat i 

OITS MMMMW" 

10010 PR I NT" HK»iiHENUE : " : PR I NT " -" 

10020 PR I NT : PR I ITT" #11. ENTER NEW PRODUCT " 

10030 PR I NT ; PR I NT " #112. CHANGE ENTRY " 

10040 PR I NT : PR I ITT " #13. DELETE ENTRY " 

10050 PR I NT '• PR I NT " H4. SEARCH/PR I NT ENTRY " 

10055 PR I NT = PR I NT " #15. CHANGE IN YEN TORY " 
10060 PR I ITT "IwMir/" FOR MAIN MEITUE" 

10070 GETflN*=IFAN#*""THEN10070 
10080 IFAN*="X"THENRETURN 
10090 A1=VAL(AN* > : IFA1<1ORA1>5THEN10070 
10100 0NA1G0 S UB12000,1 4 000,16008,18000,140 
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00 

10110 GOTO10000 

10120 OPENS,8, 5 ,"@0:MRNRGEPRO.S.W" 

10130 PRINT#5,Lfl=PRINT#5,Ffl 
10140 IFFfl-OTHEN10188 
10150 FORI-lTOFfl 
1016© PRINT#5,FRa> 

10170 NEXT 
10188 CLOSES 
10130 RETURN 

12000 F'RINT'TMfi ************ NEW ENTRY ** 

**** mm**." 

12005 FOR I ~ 1T05 : KUf < I > = "---.- 

-";NEXT 

12010 IFFfl~0THENflK=Lfl+1=GOTO12030 
12020 RK=FR<FR):Ffl“Ffl~1 

12025 I FRIO 1800THENPRI NT " SMW8&F ILE Fl II L m 
!" ; G0T012280 

12030 PR I NT "^HIGHEST PRODUCT NUMBER : ; L R 
12040 PR I NT "^PRESENT PRODUCT NUMEFP : " ; fl|< 

12050 PR I NT = PR INTMP* < 0 ) RK 
12060 F0RI-1T03 

12070 PRINTMPfCI > : INPUT"n>lBi|iiPM>lPliii|illSi|Bii" ; 
KU#<I> 

12080 NEXT 

12130 PRINT"^EVERYTHING OK CV/N)” 

12140 GETflN# ; IFRN$»""THEN12140 
12150 IFRN$="N"THEN12800 
12160 IFflN$<?"V"THEN12140 
12170 PR I NT " WlfllSMilDK SAVING PRODUCT" 

12180 HI = I NT < RK/256 > '• LO-RK-H I *256 : P0= 1 
12130 OPEN15.. 8 .>15 
12200 OPENS,8,3,"PRODUCTS" 

12210 F0RI=1T05 

1 2220 KIJT ( I ) -LEFT# ( KU$ < I > , PR < I > - 1 > 

12230 PR I NT# 15, " P" CHR# (3 > CHR# < LO f:HR# e HI r 
HR$<PQ> 

12248 PRINT#3,KU$ <I> 

12250 PO“PO+F'R< I > 

12268 NEXT : CLOSES '■ CLOSE 15 -I Ffl 1 <> 1THENRETIIR 
N 

12270 IFflK>LflTHENLfl~LR+1 
12275 GOSUB10120 
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12280 PRINT"3®»»ISHS«NEXT ENTRY tiKS 

“flFNI !E"" 

12290 GETAN*= IFAN*=" " THEM 12290 
12300 I FRN*® " M " THEN 12000 
12310 I FAN*<> " X ” THEN 12290 
1232© RETURN 

14000 PR I NT "USDS *********** CHRMGE ENTRY 
* * * * * * * * * * * 1 ' 

14010 PR I NT" MSWISERRCH BY WHAT CRITERIA ?" 

14020 PRINT:PRINT•FORI®0TO5 
14030 PR I NT 1 +1; 11P* < I > 

14040 NEXT 

1405© GETRN=IFRN»0ORAN>6THEN14030 
14055 fiN=RN-1-PRINT 

14060 PR I NTMP* C RN ) •• INPUT " r»»i»i»»»»imr 

ku* 

14065 LE=LEN < KU* > : IFLE=©THENPRINT " !TT 1 - GOTO 
14060 

14070 11=1 ; F1=0 : F2=0 
14075 G 0 8 UB19000 
14080 11=1+1 

14090 IFF1=1THENIFF2=0THEN14200 
14100 F3= 1 ■ I.FF1 =0THEN2W$= " " : GOTO 14120 
14110 ZW*=" MORE " 

14126 PR I NT • PR I NT " NO " ; 2W* i r DATA ! " 

14130 PR I NT " 11SIN™ 

=NEXT CHANGE «*MENUE" 

14148 GETRN* : IFAN*®""THEN14140 
14150 IFAN*®"N"THEN14080 
1416@ IFAN*<>"X"THEN14140 
14178 RETURN 

14200 pr i nt " ■mmmm' 

14205 FORI=0TO5■KU*<I>®KU*<I)+" 

":KU*<I>=LEFT*<KU*<I>,21> 

14210 pr I nt " ku* (i > : nex 

T 

14220 PRINT:INPUT"CORRECT ENTRY (V/N)";AN* 

14230 IFAN*®"V"THEN14258 
14235 I FRH*<> " N ” THENPRI NT " TTj" : GOTO 14220 
14240 IFRN=0THENF1®1•F2=1•GOTO14898 
14245 GOTO14075 
14250 IFA1=5THEN15808 
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14255 PR I NT " 

14266 F0Ri=iT05 : lHPUT"i«»iiiiroii»iiiiiiBii" ;kii 
f < I > : NEXT 

14265 PR I NT " Jfl .- <37spaces> - 

—->- ii 

14270 AIOVRL ( KUf ( 0 > > : GOSUB12170 : nriTn 14j A0 
15000 PRINT"! 

il 

15005 INPUT'TENTER CHANGE IN STOCK : " BE 
15010 BE-VRL ( KUf ( 4 > > +BE : KUf < 4 > =3TRf BF + " 

" : KUf ( 4 > =LEFTf < KUf < 4 > , 4 ) 

15015 PRINT"! 


15020 PR I NT " 

";KUf < 4 > 

15030 GOTO14270 

16000 F'RINT":i«Kl i*$***$$*$$$ DELETE ENTRY 

16010 PRINTTSlfiJiBELECT BY WHAT CRITERIA ?" 

16020 PR I NT PR I NT : FOR I “0TO5 
16030 PRINTT+ 1j MPf <I> 

16040 NEXT 

16050 GETAN'IFAN~00RAN>6THEN16050 
16055 ANNAN-1:PRINT 

16060 PR I NT MPf (AN > : INPUT"n»iiiiiiiBBBI|«Blliiii|" 

; ku$ 

16065 LE-LEN < KUf ) • IFLE-0THENPRI NT " ITT ■■ GOTO 
16060 

16070 11=1:F1=0:F2=0 
16075 GOSUB13000 
16080 11=1+1 

16090 IFF1=1THENIFF2-0THEN16200 
16100 F3=1■IFF1=0THENZWf=" ":GOTO1612A 
16110 ZWf=" MORE " 

16120 PRINT: PRINT" H q DATA '" 

16130 PRINT"M»»ISNB*NEXT DELETE $ 

X=MENUE"; 

16140 GETANf : IFANf="”THEN16140 
16150 IFAN**"N"THEN16080 
16160 I FAN TO "X " THEN 1 6140 
16170 RETURN 

16200 pr i nt" ’mmmm'' continue on | next pa? 

16205 FORI=0TO5 = KUf < I >=KUf < I > + " «-<22spaces) 


continue on next page 
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---> '• ■■ KU#'• I > “LEFT#- (KU# I ) , 21 > 

1621 0 pr i nt ■■ ku# < i >: nek 

T 

16220 PR I NT : I NF’UT " CORRECT ENTRV ( V/N > " AN# 

16230 IFAN$= M V"THEN16250 
16235 I FAN#<> ” N " THENPRI NT" TT1" : GOTO 16220 
16240 IFflN“0THEHF1-1 -F2«1 : GOTO 16890 ' 

16245 GOTO16075 

16250 PRINT"!! OK DELETING ENTRV ! " 

16260 ZW*VAL<KU#<0> >:HI * INT(ZW/256):LG*2W~ 
HI#256 

16270 OPEN15,S,15 
16280 OPENS,8,3,"PRODUCTS" 

16290 PRINT#15,"P"CHR#<3 >CHR#(LO >CHR# <HI>C 
HR# < 1 > 

16300 PR I NT#3, "tr" 

16310 CLOSES■CLOSE15 

16320 IFZW<LATHENFflFfl +1 = FA ( FA ) *ZW ; GOTO 163 
50 

16330 LA“LA.1 : FORI=0TOFA•FORJ«FATO0STEP-1 

16335 I FL A=F A < J > Ti-IENLA=LR~ 1 = FORK* J +1TOF A ’■ F 

A <K-1>=FA<K >■NENTK:FA=FA.1 ; GOTO16345 

16340 NEXT J ■■ GOTO 16350 
16345 NEXTI 

16350 GOSUB10120•GOTO16130 

18000 pr i nt"search for entr 

V # # #• % % # # #• # #' 1 

18003 INPUT"M0UTPUT TO PRINTER OR SCREEN < 
P/3>".;DR# 

18009 I FDR#0 " P " THENDR#“ " S " 

18010 PRINT"!s«SELECT BV WHAT CRITERIA ?" 

18020 PRINT■PRINT:FORI=©T05 

18038 PR I NT I -i-1MR# < I > 

18040 NEXT 

18050 GETAN•IFAN*00RAN>6THEN18050 
18055 AN*AN-1 ; PR 1 NT : I FAN--©THEN 18500 
18060 PRINT:PRINTMP#<AN > ■ INPUT" 

"; KU# 

18065 LE“LENCKU#> = IFLE*0THENPRINT"m":GOTO 

18060 This is not a line number ! It belongs to line 18065 ! 

18070 11=1 : F1=0 : F2=0 
18075 GOSUB19000 
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18080 11 = 1+1 

1809© IFF1 = 1THEN IF F 2=8 T H ENGQ8UB18700:GOTO1 

8073 * This is not a line number ! 

18100 F3=1 : IFF1*0THENZWf=" " : PRINT:PRINT:P 
PINT:PRINT'G0T018120 


18110 ZWT=" MORE ” 

18120 PR I NT" NO 1 

NT;" DATA ! " 


18130 PRINT"HMISNB*NEXT SEARCH SX 

=MENUE" 


18140 GET A NT : I FAINT = " " THEN 18149 
18150 I FANT= " IN " THEN 18000 
18160 IFAHTO " X ” THEN 18140 
18170 RETURN 

18500 PRINT"XFROM ";MPT(8 > 

18510 iNPUT"r)i»»ii»ii*ii»»iiti>»i "ki 
18515 IFK1 >LATHENI< 1 =LA 
18517 IFK1<1THENK1=1 
18520 PRINT"TO ";MPT<0> 

18530 iNPUT"riii>i»ikiiii»»iiiii»ikr; K2 
18535 IFK2>LATHEHK2=LA 
18537 IFK.2C1THENK2-1 
18540 OPEN 15.. 8, 15 
18550 OPENS, 8.. 3" PRODUCTS " 

18560 FORK=K1T0K2 
18570 HI = INT <K/256> : LO=K-HI#256 
18580 PO=l : FORI=1TO5 

18590 PRINT#15,"P"CHRT<3)CURT(LO >CHRT<HI>C 
HRT(PO) 

18600 I INPUT#3, KUT < I > : IFKUT < I ) =it " THEN 18630 


18610 
18620 
18630 
18640 
18650 
18700 
18720 
18730 


18 r' 4 O 
T 

18750 


PO=PO+PR(I> 

NEXT I : KUT < 0 > =STRT < K ) '• GOSUE18700 
NEXTK 

CLOSES=CLOSE15 
GOTO18110 
PR I NT " 

I FDRT= " P " THEN0PEIN7,4,7: CMD7 
FORI=0TO3:KUT <I> =KUT(I> + " 

":KUTCI)=LEFTT<KUT<I>,21> 
PRINT"(HPil«ill®ilMiiiiiBiliiiiffiii" KUT-( I > ’■ NEX 


I FDRTO"S" THEN 18780 
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1876© PR I NT" MeiMttsTOPMii 1SCE= C:0NTI HUE"; 

18770 GETANf '• 1 FANf<> " C " THEM 18770 
18775 RETURN 

18780 PR I MT#7 '• CLOSE? = RETURN 
19000 REM SEARCH 

19010 ONANGOTO19160,19110,19120,19130,1914 
0 

19020 2W---VAL < KUf > : HI * I NT < 2W/256 > : L0*2W-H I * 
256 =IF2LK10R2W>LATHENF2*1 : RETURN 
19030 OPEN15,8,15 
19040 OPENS,8,3,"PRODUCTS" 

19050 P0=1 : FORI“1T05 

19060 PR I NT# 15, " P ” CHRf < 3 > CHRf < LO ) CHRf (HI>C 
HRf(PO > 

19070 INPUT #3, KUf < I) : I FKUf < I > *tr" THENF2* 1 : 

GOTO19090 

19075 PO*PO+PR<I> 

19080 NEXT:FI*1 
19090 CLOSES■CLOSE15 
19095 KUf < 0 > =STRf < ZW > '• RETURN 
19100 PO*1 ; GOTO19200 
19110 P0*21 : GOTO19200 
19120 PQ=26 ; GOTO19200 
19130 P0=33 : GOTO19280 
19140 P0*38 

19200 I. FI x >LATHENF2= 1 • RETURN 
19205 OPEN15, 8, 15 
19210 OPENS,8,3,"PRODUCTS" 

19220 FORI=11TOLA 
19230 HI = INT <I/256):LO*I-HI*256 
19240 P RIN'T # 15, " P " C H R $ < 3 > C H R :f : < L 0 > C H R $ < HI ) C 
HRf 1 > 

19250 I NPUT#3, K1 ■$ ■ IFK1 $* " tr" THEN 19310 
19260 PR I NT# 15," P " CHRf < 3 > CHR’i ( LO ) CHR/S HI > C 
HR'TCPO) 

19270 I NPUT #3, K 1$ : I FLEFTf < K1 $, LE > OKUf-THEN 
19310 

19280 PO*1:FORK*1T05 

19285 PRINT#15,"P"CHRT<3 >CHRT <LO >CHR$(HI> C 
HRf (. PO > 

19290 INPUT#3,KUf < K) 

19295 PO*PO+PR< K > =NEXTK 

19308 CLOSES : CLOSE 15 : F1 = 1 '■ KUf < 8 > =STRf ( I) '• R 
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ETURN 

13310 NEXTI 
19320 CLOSES:CLOSE15 
13330 F2~l : RETURN 
19300 GOSUB60100 

20000 INVENTORV I 1ST 

************" 

20005 INF’IJT"■JflHI'JHOLESflLE~/RETflIL PRICE <W 
R ) " ANT 

20010 Z3=0 - INPUT"MOUTPUT TO PRINTER OR Sf:R 
EEN < P/SDR$ 

20020 I FDR$- " P " THEN0PEN7,4 : PR I NT#7, CiHRT f 1 5 
);-CMD7 

20030 PRINT ; PRINT"NO. DESCRIPT. REOL PRICE 
QUflN TTL" : PRINT 

20035 I FDRf = " P " THEN PR I NT#7 '■ CL.0SE7 

20540 OPEN 15., 8,15 

20550 0PEN3,8,3,"PRODUCTS" 

20560 FORK-1TOLA 

20570 HI*INT<K/256>:LO*K-HI*256 

20580 PO=1:FORI~1T05 

2053© PRINT#15,"P"CHR*<3 > CHR#<LO >CHR$<HI)C 
HR#(PO) 

20600 INPUT#3 , KU$ <] I > ■ I FKUf- < I > * " it " THEN2OS30 
20610 F'O-PO+PR ( I > 

20620 NEXT I : KU$ < 0 ) =M I < STR# < !< > , 2 > ; GOSI. JB20 
700 

20630 MEXTK 

20640 CLOSES '• CLOSE 13 

20650 IFDR$="P"THEN0PEN7,4:PRINT#7,CHR#(15 
>:CMD7 

20655 PRINT" 


20660 PRINT' 


TOTAL. 


20670 IFDR$="P"THENPRINT#7=CLOSE7 

20680 pr i nt • pr i nt " mmmmmmmmmmmmm 

WIM-MENUE" Cursor*home 23 Curso^own 

20690 GETAN# : IFANfO"X"THEN20690 
20695 RETURN 

20700 IFAN$="W"THENKU#C3 > =KU#(5 > 

20701 Z 1V A L < K U '$ (. 4 ) > : Z 2 “ V A L < K U $ <. 3 > > ; 21-21* 
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( 12 spaces) 


70 : 73=73+7 1 

20702 FORM*0TO4 = KU?<M > =KU$ <M> + 

" '• NEXTM 

20704 KU$ ( 0 ) - LIEFT $ < KU$ ( 0 > 4 > '■ KU$ ( 1) =LEFT? ( 
KU? C 1 > , 9 > : KU$ < 2 > =LEFT$ < !<U$ < 2 > , 3 > 

20706 KU*3 >-LEFT:? <KU? ( 3 > , 6 > : KU? < 4 >-LEFT:? < 
l<U$(4>,4> 

20708 IFDR?-="P"THEN0PEN7,4:PRINT#7,CURT<15 
): CMD7 

20710 FQRL-0TO4 
20720 PRINTK.U?(L > +" "j 
20730 NEXTL 
20740 PRINT" 11"Z1; 

20758 I FDR?- " P " THENPRI NT#7, CHR? <8 > j = CL0SE7 
:RETURN 

20760 PRINT : RETURN 

30800 PRINT"IMA ********** INVOICE WRITING 
**********" 

30010 INPUT" WENTER DATE OF INVOICE "; DA* 
30020 INPUT"CENTER FIRST INVOICE NUMBER " 
RN* 

30030 INPUT"CENTER CUSTOMER NUMBER "; ZUI 
30040 HI»INT<ZW/25S>:LO-ZW-H1*256 : IFZW<1TH 
EH30200 

30050 OPEN15,8,15 

30060 0PEN2,8,2,"ADDRESSES" 

30070 PO=1•FORI■1T07 

30880 PRINT#15,"P"CHR? C2 >CHR$<LO > CHR$(HI>C 
HR?< PO) 

38080 I NPUT#2, Km ( I ) ; IFKU? ( I > - " ir" THEN30128 

30100 PO=PQ+KU<I> 

30110 NEXT 

30120 CL0SE2■CLOSE 15 
30130 Km 8 > =STR? < ZW > 

301 4@ I FK.m ( I > <> " it " THEN30250 

30200 PRINT"MHO CUSTOMER WITH THESE DATA 

!":PRINT:PRINT:GOTO32000 

30250 PRINT" Jfl 4-< 31 spaces ) 

-> " 

30260 FOR I =0107 : PR I NTMA? ( I > KUT- < I > : NEXT 
30270 INPUT"WCORRECT CUSTOMER CV/N) " ANS 
30280 I FAN?'- " N " THENPR I NT " 23" : GOTO38O30 
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30290 IFRNTO"V"THENPRINT" TD"•G0T038278 
30295 PRINT- INPUT ,! ENTER TAX RATE IN X " ; MW 

30300 PR I NT "IT' '• INPUT"?® HOW MANY DIFFERENT 
ITEMS "12 
30310 FORI-1TOI2 

30320 PR I NT = INPIJT " I TEN NO, " N1 < I > : INPUT " 
QUANTITY ";M1(I> 

30330 HI*INT <N1<I>/256> : LO=N1<I)-256*HI 
30335 OPEN15,8,15 : OPENS,8,3,"PRODUCTS" 
30337 PO-1 ; F0RJ : ~1T05 

30340 PR I NT# 15, " P " CURT < 3 > CURT C LO > CHRT- C HI > C 
HR#CPO> 

30350 I NPIJT#3, M1 T < I, J > : IFM1 T C I, J > * " -rr" THENC 
LOSES CLOSE 15 • GOTO30408 
30360 PO=PO+PR< J> 

30370 NEXTJ 

30380 CLOSES:CLOSE15 

30385 M1 T < 1,4 > =STRT ( VAL < M1 $ (1,4 > >' -M1 C I > > : I 
FVAL(M1 T<1,4 > >>VAL<M1T<1,2 > > THEN38405 
38388 IFVAL<M1 $<1,4 >> <»0THENS04©0 
38390 PRINT : PRINT"SWARNING!!! : REORDER LEV 
EL PASSED" : GOTO30405 

3040© PRINT:PRINT"ITEM HOT IN STOCK !I":PR 
INT:PRINT:GOTO32000 

30405 PR I NT " :bJCH< : " ri 1 < I > M 1 $ ( I , j 

30410 NEXTI 

30420 I NPIJT " -)mm I SCOUNT IN X : " , RAT : RATTLE 
FTT(RA$+" ",3> 

38425 I NPIJT" IPPI NO COST IN $ " VST 

30438 0PEN4,4:PRINT#4,CHRT C1 5 > 

38448 PRINT#4=PRINT#4:PRINT#4 
30450 PRINT#4,TAB(25);"***** INVOICE *** 
**" 

30460 PR I NT#4 : PR I NT#4 '• PR I NT#4 : PR I NT#4 
30478 PR I NT# 4.. " INVOICE NUMBER : " RNT; T 
ABC45); DAT- 

3048© RNT--MIDT-C STRT C VAL C RNT) +1 > , 2 > 

30490 PRINT#4," CUSTOMER NO. • ";KU$<0 

) : PRINT#4 : PRINT #4 

30500 PR I NT#4.. TAB < 40 ) " BANK OF AMERICA " 

30510 PRINT#4 > TAB < 40 >; "ACC0 1 J NT N0 . 4444777 
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30530 PRINT#4 

30560 PRINT#4•PRINT#4 ; PR INT#4 
30570 PRINT#4, " FROM : " 

30530 PRINT#4 

30600 PR I HI#4, TAB < 5 > ; " ELCOMP F'lJBL ISHI NO, 
NC. " 

30610 PRINT#4,TAB<5)1"53 REBROCK LANE" 
30620 PR I NT#4, TAB ( 5 > ; " POMONA CA 31766 
30630 PRINT#4:PRINT#4:PRINT#4 
30640 PR I NT#4 .■ " TO ■ " 

38650 PR I. NT#4 

30660 PR I NT#4TAB < 5 ) ; KUT C 1 > 

30670 PRINT#4,TABC5>;KUT<2 > 

3068O PRINT#4,TAB(5 > i KUT (. 3> + " "+KUT<4 > 
3063© PRINT#4:PRINT#4 

30700 FORI*1TO1 2 : SI(I> = INT<<VAL(M1T C1 ,3>) 
M1 ( I> * 108+« 5 ) 1 00 

30702 M5T < I >"-LEFTT <STRT < M1 < I > > + " +-<ie spaces > 

__ y It C\ 

30704 M 1 T ( I , 1 } “LEFTT < M 1 * < 1 , 1 ) + " <■ < 24 spaces > 

- > n .i 20 ) 

30710 PRINT#4,M5$a>; 

30720 PR I NT#4, TAB < 5 > ; M1 $ ( 1,1) 

30725 J J-VAL ( M1 $ < 1,3 ) ) '• OOSUB43000 
30730 PR I N'T#4, TAB C 18-L ) J Jt-; 

38740 PRINT#4, " EACH 
30745 J J»S 1 I > : GOSUB48000 
30750 PRINT#4,TAB <20-L>;JT 
30760 NEXTI 

30770 30=8 ; FOR I = 1 TO 12 = SU=SU+S 1 < I > '• NEXT 
30780 PRINT#4 ; 30=INT<SO*100+.5)X1©0 
30730 IF'v'AL<RAT > =©THEN3082© 

30735 32* I NT < < i VAL < RAT ) /100 ) *30 > * 100+. 5 > 
08 : 30=INT((30-32>*100+.5)/100 
30738 JJ=32 ; OOSOB48000 

30800 PR I NT #4, TAB! < 44 > RAT > v 7. DISCOUNT * 

" ; TAB ( 10--L ) > JT- 

30820 PR I NT#4, TAB < S3 ) ; " - ” 

30825 JJ=30=GOSUB48000 

30830 PRINT#4,TAB <52)J”NET AMOUNT:",TAB(1 
L); JT 

30840 IFVflL<VST>=0THEN30328 
30845 J J=V A L ( V S T ) : G 0 S U B48000 





30850 PR I HI #4 • PR I WT#4, TAB 55 ) ; " FRPIGHT : " ; 
TAB'::8 --L)J* 


30860 
30870 
30875 
30880 
30910 
30920 
+81 
30925 
30930 
TAX 
30940 
30945 
30950 
■$ 


PR I NT#4.. TAB C 63 ) "---" 

S U=3 U+V A L <! V S $ > 

JJ=SU : GOSUB48080 
PR I NT#4 , TAB < 72-L > J$ 

MW$=LEFT$ C STR$ ( MW > + " " , g> 

31 = 1 NT (SU* < MW/100 > ■■¥ 100+. g > / i 00 : S!J~3U 

j • J=81 ; G U 8 !J B48000 

PR I NT#4 : PR I NT#4, TAB < 47 ) ; " + » MW$" >' 

" J TABO-L) .J$ 

PR I NT#4, TAB (63 >" **«*==»==" 

J J=SU '• GOSUB48000 

PRINT#4,TAB < 56 >j"TOTAL• ",TAB C 9-L >;J 


30960 CL0SE4 

31300 OPEN 15,8 .• 15 : OPENS.. 8.. 3, " PRODUCTS " 
31400 FOR1=1TOI2 

31410 HI = I NT < N1 I > ,-'256 > ■ LO=N 1 < I ) ~256*H I 
31415 PO=1 ; FORJ*1T05 

31428 PR I NT# 15," P " CHRf- < 3 > CHR$ < L_n > f:HP$ «r U J •> r 
HR*(PO > 

31425 M1 ■$ (. I, J > "LEFT $ < M1 * ( I, J > , pp < .T•-1 
31430 RRINT#3,M1$ <I,J > 

31440 P0=F'0+PR ( J > = NEXT J 
31450 NEXT! 

31460 CLOSES : CLOSE 15 25 Curs ° r down 

32000 PR I NT " SF-»= 

PRODUCTS NEW iSCi=CUSTOMER NEW" 

32005 PR I NT " aXSIENUE " 

32018 GETAN*:IFAN$=""THEN32010 
32020 IFANS'""X"THEN RETURN 
3203G IFAN*="C"THEN30030 
32040 IFANS="P"THEN30300 
32050 GOTO32010 
39900 GOSUB60000 

40000 print'tisosi mmmmm MAILING LIST 

-ijH :+=. 4>-:" 


40010 IN PIJ T" ENTER: FROM #. TO # " ; ?A , ?F 
40015 PR I NT INPIJT " ENTER TABS C L FFT , PI GHT 
LABEL) ".;LT,RT 

40020 l< 1 = 1: K2=@ : IFZE>L ATHEN2E=L A : PR I NT j 

84 Continue; on next page 








Cursor home 7 ^Cursor down 18 Cursor right 

" i Lfi : 11 M 

40030 FQRZW-ZATOZE ; KO* ( 2, 1 > * " ************* 
■ft#***" 

40040 HI-1 NT ZW/256 ) • L0=ZW-H I *236 = I FZW< 1 OR 

Z W > L R THE N40200 

40050 OPEN13,8,15 

40060 OPEN2,3,2,"ADDRESSES" 

40070 P0=1 : FORI=1TO6 

40080 PRI NT#15,"P"CHR*(2)CHR*(LO >CHR*(HI)C 
HR# ( F'O > 

40090 I NPUT#2, KO* < K1, I > : I FKO* C K1, I > Otr" Tl-I 
EN40100 

40095 PR I I^IT 11 ADDRESS NO.'TZW 

:GOTO40150 

40100 P0*P0+KU<I> : NEXTI 

40110 K1 =K 1 +1 •• K2~ 1 : IFK1 =30RZW=ZETHENK 1 = 1: r : 
LOSE2:CLOSE13 : GOTO40230 
40150 CL0SE2 CLOSE 13 • NEXTZW 
40160 IFK2O0THEN42000 

40200 PRINT"JIWNO CUSTOMER WITH THESE DATA 

I " : PRINT PRINT : GOTO42000 

40250 0PEN4..4 

40260 FORI=1T02■FORJ=1T02 

40270 KO* < J, I ) “LEFT# CKG* ( J, I > + " <- <ie spaces)- 

-*•" 2 @ y 

4828© NEXT J : NEXT I 

40320 PR I NT#4, TAB ( LT > ; KO* ( 1, 1) ; TAB < RT > ; KO* 

2 .■ 1 > 

40330 PRINT#4 

40340 PRINT#4,TAB(LT>;KO*(1,2>;TAB(RT>;KO* 

( 2 .• 2 ) 

40350 PRINT#4 

40360 PR I NT#4, TAB (LT >; KO* (1,3); " 11 ; KO* ( 1,4 
; 

40365 PRINT#4,TAB(RT+11-LEH(KO*(1,3 > >);KO* 
<2, 3>; l<0*(2.. 4) 

40370 PR I NT#4 : PR I NT#4 '■ PR I NT#4 : PR I NT#4 
40380 CL0SE4 
40390 NEXTZW 

42000 pr i nt " mdihnud^ 5 spaces 

-> SJNSNNEXT CUSTOMER 3XH=MENUE" > 

42010 GET AN* : I FAN*--" " THEN42010 
42020 IFAN*="X"THEN RETURN 
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42*30 I FRN#= " N " THENPRI NT 11 71' : GOTO40010 
42050 G0TO42010 
4490G GOSUB60100 

45000 print"';m« ********** low items m.% 
******* ” 

45010 Z3*0: INPUT"IIOUTPUT TO PRINTER OR SCR 
EEN <P/S>";DR# 

45020 I FDR#* " P " THEN OPEN?, 4 '• PR I NT#7, CHR# < 15 
>;•CMD7 

45030 PR I NT •• PR I NT " NO. DESCRIPT. 

QUITN "■PRINT- 

45035 IFDR#*"D"THENPRINT#7•CL0SE7 
45540 OPEN 15,8,15 
45550 OPENS,8,3,"PRODUCTS" 

45560 FORK*!TOLA 

45570 HI* INT <K/256> :LO-K-HI*256 

45580 PO*1= FORI*1T04 

45590 PR I NT# 15.." P " CHR# < 3 > CHR# < LO > CHR# < HI > C 
HR#(PO) 

45600 INPUT #3 .. KU# < I > IFKU# CD*" it " THEN45630 


45610 PO-PO+PRCI) 

45620 NEXT I : KU# < 0 > ~M ID# < STR# (|< > , 2 > 

45625 IFVflL < KU#(4 >><VRL <KU#<2> > THEN00SUB45 
700 

45630 NEXTK 

45640 CLOSES=CLOSE15 

45650 IFDR#”"P"THEN0PEN7,4•PRINT#7'CL0SE7 
45680 PR I NT : PR I NT " 

#=MENUE" 

45690 OETflN# ; IFRN#<>"X"THEN45690 
45695 RETURN 

45700 K U # < 2 > = " " '• i< U # < 3 ) =" 

45702 FORM-0TO4 : KU# <f-1 > ”KU# ( M ) + " 

":NEXTM 

45704 KU#(0)*LEFT#<KU# < 0>,4)=KU# <1)"LEFT#< 
KU# <1>,12 >:KU#(2 >"LEFT# <KU# <2 >,3 > 

45706 KU#(3 > *LEFT#<KU# C3 >,6)■KU#< 4)=LEFT#< 
KU# < 4 > .. 4 ) 

45708 IFDR#*"P"THENOPEN7,4 = PRINT#7,CHR#(15 
) .1 = CMD7 

45710 F0RL-8T04 
45720 PRINTKU#(L)+" 
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45730 NEXTL 
45749 PRINT, 

45758 I FDR#« " P " THENPRI HT#7 , CHR# (8 > .1 • CL03E7 
:RETURN 

45760 PRINT : RETURN 
48000 l< 1 $= ” 0 " : |<2$= " . 00 " 

48010 CC*INT<JJ#180+.5 >/ 100 

48029 J1$=STR#(CC > 

48030 Ji=l@*CC 
48040 J2= I NT <. J i > 

48050 J3“J1~J2 

48060 IFJSC.08THEN48090 
48070 .]■$■■= J1 $■ ■ L=LEN < J# > 

48080 RETURN 
48090 J4“INT(CC > 

48100 J5*CC-J4 

48110 IF JSC,, 09THEN48140 

48120 J$=J1#+K1# : L=LEN<J#> 

48130 RETURN 

48140 .]■$- J1 $+K2$ : L*LEN < J# ) 

48150 RETURN 

50000 PRINT"WSliFRESS RNV KEY” 

50010 QETflN#:IFAN#-""THEN50010 
50020 RETURN 

55000 DATA" CUSTOMER NO. =" , 5 

55005 DATA" NAME : " > 20," STRE 

ET:",20," CITY:", 14 

55010 DATA" ZIP ; ",9," PHON 

E : ,13," PARAMETER 1 '",3 

55020 DATA" PARAMETER 2=",3 

55100 DATA" ITEM NO. '■ ",5 

55110 DATA" DESCRIPTION:",20,"REORDER LEV 

EL'-", 5," RETAIL PRICE : " , 7 

55120 DATA" ON STOCK : ", 5,"WHOLESALE PR 

• n 

.i • .'i 

60000 REM READ MANAGER 

60010 OPEN4,8,4,"MANAGEADR,S,R" 

60020 INPUT#4,LA'INPUT#4,FA 
60030 IFFA-0THEN60070 
60040 FORI-ITOFA 
60050 INPUT#4,FA(I> 

60060 NEXT- 
60 070 CLOSE4 
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60080 

RETURN 


60100 

REM READ MANAGER 

60 1 1 0 

OPENS,3,5, 

"MANAGE 

60120 

I NF'UT#5, LA 

: INPUT# 

60130 

IFFA-0THEN60170 

60140 

FOR I-ITOFA 


60150 

I NF'UT#5, FA 

I > 

60160 

NEXT 


60170 

CL0SE5 


60180 

RETURN 



Ffl 


***** INVOICE ***** 


INVOICE NUMBER : 1 1-17-84 

CUSTOMER NO. • 2 


BANK OF AMERICA 
ACCOUNT HO. 44447777 


FROM 


ELCOMP PUBLISHING, INC. 
53 REDROCK LANE 
POMONA Cfl 91766 


JOHN NEALLV 
55 GOLDEN AVE. 

JOSHUA TREE CA 92710 


ITEM 1 
ITEM 2 


EACH 

= 

59.90 

EACH 

* 

99. 75 

10 V. 

DISCOUNT = - 

15.97 


NET AMOUNT: 

143.68 


FREIGHT: 

3.50 

147.18 

+ 6 

.5 X TAX 

9.57 


TOTAL: 

156.75 


Some useful hints: 

This version of the Business Package uses the device 4 for the printer. It 
was tested with the Commodore 1525 printer. To modify the program for 
another printer (device) you have to change all line numbers containing an 
OPEN, CMD or CLOSE statement using device 4. 

For instance line#: 8720,8780,20020,20650,20708,20430a.following, 
->30960, 40320, 40425, 40440, 45020, 45035, 45650, 45708, 45750. 
After changing the program please test and debug it completly. 
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Application 

Notes 


Very interesting applications of the Bliztext wordprocessor from 

Hofacker. 

1 . How to connect a serial printer or typewriter with an RS232 
interface to your C-64 

2. How to transfer textfiles from a portable computer into a 
wordprocessor with built in terminal facilities. This application 
uses BLIZTEXT, the wordprocessor from Hofacker. 

3. Tranfer of text files between portable computers and the 
Commodore 64 in both directions. 
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NOTES 



RS 232 KIT 
for the 

Commodore-64 


The Commodore 64 is a very inexpensive computer, 
if you compare what you get for your money. But 
when you want to connect a printer to your C-64 
the situation becomes different. In many cases, 
you only can connect a printer to the serial IEEE 
port of the C-64. You are limited to a few 
printers on the market. 

In this construction articLe we will show you how 
to connect a seriaL printer or an inexpensive 
typewriter with an RS232 port to your C-64. You 
don't have to buy an expensive cable. You only 
have to know how to use a soldering iron and how 
to solder a few components and two or three wires. 
Your C-64 is completely equipped with the hardware 
and the software to drive a serial printer, 
however the manual does not tell you how to 
connect it and use it. 

The RS232 interface, which is implemented through 
the user port, is not a real RS232 with the +-12V 
levels. 

There is only a TTL-level as a transmitted data 
line available. We used those TTL-leveL RS232 
interfaces with a variety of printers like the 
DECWRITER, QUME Sprint9, the BROTHER HR15, and the 
NEC Spinwriter. On all these printers, and even 
with the Smartmodem from Hayes, the TTL-level 
RS232 worked fine. The RS232 interface software is 
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built in and the transmission specifications can 
be set up via certain register settings. 


To hook up your RS232 printer all you need is the 
following: 

1. A user port connector 24 pin from 
TRW CINCH 251-12-50-170/50-24sn- 
98124 available from your local 
computerstore or from a distributor 
that specializes in connectors. 


















handshaking, was the easiest to connect to our C- 
64 with a Qume Sprint9 Letter quality printer. To 
wire a 3 line interface you only need to connect: 


Receive data on Qume Sprint 9 



If you want to connect a RS232 printer, you only 
need to wire the two lines GND and transmitted 
data. 


Receive data on DEC-writer 




--—--- 

GND 7 

3 

1 

00 

n 

654 

[ 9 o O O o 1 

\ o o o o o 


<> A L L * 

0000 

rr\ 

O 

0 

O 

25 


20 14 
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We found out that the transmit data Line, comming 
out of pin M, must be inverted before feeding into 
the printer. You can connect a 7400 NAND gate 
directly to the user port connector using Pin 1 
and Pin 2 as power supply lines. 


If you need more than 4 Lines to be inverted, use 
a 7404 inverter chip containing 6 inverters. A Lot 
of printers with RS232 interface need some 
handshaking. Therefore you have to wire the 
printer input connector according to the following 
schematics. 



Comments: Because we operate the C-64 in the 3- 
wire-mode, no handshaking provided. We must set 
the jumpers on our printer so that it does not 
need any handshaking signals. We must also study 
the manuals carefully and find out which pin must 
be GND and which must be high (+5V) to receive 
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only data via the lines "Receive Data" and "GND". 
It usualLy is pin 3 and 7 at the 25 pin connector 
on your serial printer or typewriter. Sometimes 
the line "Receive Data" has to be inverted. 

The user port is located on the backside of the C- 
64, on the left side as seen from the keyboard: 



One of the two CIA6526 (Complex Interface 
Adapters] are used for the RS232 interface. Port 
lines PB0-PB7 plus one portline from port A (PA2) 
and one flag pin are used for the RS232 interface. 


The 

pinout of the C-64 user 

port looks 

as follows: 



PBO 

Receive Data Pin C 


(Input) 

PB1 

Request to send 


(Output) 

PB2 

Terminal Ready Pin E 


(Output) 

PB3 

Incoming Call Pin F 


(for modem 

PB4 

Input Signal Pin M 


(Input) 

PB5 

NC Pin J 



PB6 

Clear to Send Pin K 


(Input) 

PB7 

Data Set Ready Pin L 


(Input) 

FLAG2 Receive Data Flag,Pin 

B 

(Input) 

PA2 

Transmit Data, Pin M 


(Output] 

GND 

Pin A 



GND 

Pi n N 



Construction of the cable and 

inverter. 


To construct a cable for RS232 +5V operation we 

need the following parts: 

1 User port connector 

TRW CINCH 251-12-50-170/24su-98124 or 
simi lar 
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1 RS232 25 pin connector (male) 

1 7400 or 7404 TTL IC 
4-7 feet of wires. 

How to program the RS232 interface? The built in 
RS232 interface can be programmed by an OPEN 
command. In our case we will set the following 
conditions: 

Baud rate: 300 baud 

Data bits: 8 data bits 

Stop bits: 2 stop bits 

The control register now looks as follows: 

300 Baud 
8 Bit 

2 Stop Bits 


X = Don't care 
Control register [j 

8 6 

Hex = 134 dez 

two wire 


6 dez 

/ halfduplax 
no parity check 

This comes up to a content of decimal 134 or hex 
86 . We must set the Command Register for 
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halfduplex and two resp. three wire operations. 


After you have wired everything correctly and 
connected the C-64 to your serial printer you can 
test the cable and the connection with the 
following program: 

10 OPEN 1,2,0,CHR$(134)-fCHR$(16) 

20 PRINT #1 , If U; : GOT020 

After typing RUN, the printer should start 

printing. If you want to list a BASIC program to a 
a printer you have to type in the following: 


In the direct mode: 

OPEN 1,2,0,CHR$(134]+CHR$[16] 

CMD 1 

LIST 


How to convert your +5V RS232 into a real RS232? 

As mentioned earlier our RS232 interface described 
above is not a real RS232 interface because the 
signal level is only +5V (TTL). Working with many 
RS232 printers, we found out that a +5V LeveL is 
sufficient in 90% of all cases. For those who are 
in the remaining 10% we will show you how to 
implement a real RS232. For that you need an extra 
+-12V power supply. A MC1489 integrated circuit 
has to be added into our project. Because the 
MC1489 inverts the signal itself, we don't need 
the inverter circuit anymore. The schematic now 
looks Like this: 
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A + 12V 


MC 1489 



from pin N _ ^ __ 

on the USER Port on the printer 

How to connect a modem to your Commodore-64 ? 

BLIZTEXT allows you to go from the editor directly 
into a terminal mode. This gives BLIZTEXT an 
outstanding feature never seen before on a 
wordprocessor : You can type your text, format it, 
save it on disk or cassette or even send it via 
the Smartmodem into a network or to another 
computer. You also can download incoming text from 
a modem into your C -64 and save it for later on 
cassette or disk. 
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To connect the Smartmodem 300 to your C -64 you 
need the following: 

1. 25 pin RS232 connector (male) 

2. 24 pin user port connector for your 
C-64 user port 

3. Three wires approx, 5 feet Long 



Do not change the factory setting for the 
configuration switches. You can connect a 
Smartmodem to your C—64 using the schematic shown 
above. After wiring the cable and hooking up the 
phone and power supply, switch on the smartmodem. 
Jump into the terminal mode from the editor using 
the command line command T. 
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POWER POWER RS-232C TELEPHONE VOLUME 

SWITCH CONNECTION CONNECTION CONNECTION CONTROL 

KNOB 

Then type once or twice RETURN, because the first 
character is aLways wrong. Type in for instance: 

ATFO 

OK 

ATD5033434352 

which dials a phone number in Oregon with a smart 
modem hooked up. You should use the telephone 
number from your network here. When you get double 
characters stop and switch to full duplex and 
enter ATF1 at the beginning. For more details and 
on how to program the Smartmodem, please refer to 
your Smartmodem 300 Owner's Manual. 

How to wire the connector on the Smartmoden: 



25 RS232 connector 14 

on the Smartmodem 300 


We found that the TTL-Level 5V connection to the 
Smartmodem worked fine. If you use an acoustically 
coupled modem, you may run into problems with the 
5V level. Then you have to build the +—12V RS232 
cable as described before. 
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Some Interesting 
Applications for the 
use of BLIZTEXT 


Because of its unique feature which allows you to 
send and rceive text with BLIZTEXT on your 
Commodore-64 there now are many useful 
application hints. The ones discussed below will 
help you get the most out of your Commodore-64. 
Introduction of the real portable computers like 
the TRS-80 Model 100, the NEC 800, the CASIO P200 
or the NEC portable has opened a variety of new 
applications in which BLIZTEXT may be used. 







External text aquisition using a lap computer and 
BLIZTEXT 

The TRS-80 Model 100 is one of the first truly 
portabLe computers. It has a built-in simple 
textprocessing program, which allows you to input 
and modify text and store this text as a DO file 
in memory. The information is retained even if the 
power is switched off. 

The basic concept 

You can use your Model 100 or a similar lap 
computer with an RS232 interface to type your 
text in while you are on a business trip. The 
Model 100 may then be connected into BLIZTEXT 
(with your Commodore-64]. The text can be 
transferred from the Model-100 into the 
wordprocessor. There you can modify, insert and 
format the text and store it on cassette or disk 
or send it to the printer. You also can upload 
parts of the text and accumulate it in BLIZTEXT, 
because you can place the text in BLIZTEXT from 
the current cursor position on and so chain 
various parts of text. 

How to connect your Model 100 into BLIZTEXT on 
your C-64 will be shown to you in the following 
chapters. 
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The UPLOAD function of the Model 100 in the tele¬ 
communication mode must be used to send text to 
BLIZTEXT. 

UPLOADING from Model 100 into BLIZTEXT 
Type in the text into the Model 100. Check the 
available memory and make sure that we have 
enough space for our textfile. If enough space is 

not available some current DO files must be 

killed to make room for our new file. 

How to kill a fiLe? 

Go into BASIC and type KILL "NAME. DO" <RETURN>. 
NAME = Name of the DO file already in the menu of 
the Model 100. 

If enough space is available go to the menu and 
move the cursor of the text function. Type in the 
name of the file and type in your text using the 
text editor function of the Model 100. When you 

are finished, press the function key F8 and 

return to the menu. 

The text can be saved and later sent into the 
wordprocessor BLIZTEXT on your Commodore-64. 

In order for the right transmission 
characteristics to be set, the Model lOtf must be 
prepared using the "STAT" function, For more 
information, refer to your ModeT 100 manual 
describing the setting procedures using the STAT 
function. 

The Model 100 can now send text via the RS232 
interface, so that BLIZTEXT can receive it 
properly. Proper connections must be made between 
the two computers. 

You need the following parts: 

1 connector TRW CINCH 251-12-50-170-50-24su-9824 1 

1 RS232 25 pin standard connector 1 SN 7400 (4 

NAND-gates TTL-chip) 3 wires approx. 3 feet long 
Preparation of the C-64 and BLIZTEXT 
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Now that we have prepared the Model 100 and wired 
the connections between the C-64 and the ModeL 100 
we can boot up the Commodore-64 and start BLIZTEXT. 
After the program has been started, clear the text 
buffer using the command K in the command line and 
enter the terminal modus as follows: <CTRL>-<AA> 
to <CTRL>-<A> <CTRL>-<A>. BLIZTEXT now shows on 
top of the screen that you are in the terminal 
facilities. Depress the FI key. Depress the FI key 
only once. It works as a flip-flop and if 
depressed a second time, it will disconnect the 
BLIZTEXT terminal facilities from the transmission 
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Line. Thus you also can use the FI key to receive 
only parts of text. The C-64 is now ready to 
receive text. The text must be now uploaded from 
the Model 100 into the C-64. The "Status" of the 
Model 100 has been set. Go into the main menu, 
select the TELECOM mode and depress the function 
F4 key. Then depress the F3 key for uploading text. 
The Model 100 will ask you for a filename [i.e. 
which file to upload). Type in the name of the DO 
file and the width of the text. This is the number 
of characters which will be placed after a 
carriage return by the Model 100. We recommend a 
width of 39 because this matches with the 40 
characters per Line on the C-64. BLIZTEXT should 
now receive the text and displays it on the screen. 
When the transmission is finished, type FI 
(function key) on the Commodore-64, and then 
<SHIFT>-<F1> to return to BLIZTEXT. The text from 
the Model 100 is now in the wordprocessor and can 
be modified, formatted or even stored on disk or 
on cassette using the BLIZTEXT wordprocessor. 

The transmission in the other direction (from 
BLIZTEXT into the Model 100) can be done the same 
way. The Model-100 must be prepared for 
downloading instead for UPLOADING. 

Downloading text from BLIZTEXT into the Model-100 
Text can be downloaded from the Commodore-64 into 
the Model 100. An example of this application 
would be if a businessman wants to take a textfi le 
from BLIZTEXT on his business trip and print this 
out on printer at the customers office. 

How to upload a textfiLe? 

Prepare the C-64 in the same way as described for 
uploading. On the Model-100, select the terminal 
mode using the F4 function key. Then depress the 
F2 function key for downloading. You also have to 
input a filename,into which the text then will be 
stored. 
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NOTES 




T ransfer of 
Textfiles 



The "BLIZTEXT" wordprocessor was developed by 
HOFACKER and allows you to send and receive 
informations with its built-in terminal mode. 

The description for the BLIZTEXT word processor 
shows you how data (text) can be entered into a 
a portable tandy model 100 at a geographical 
remote location (e. g. at the beach or in an 
airplane) and later sent to the BLIZTEXT word 
processor. 
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A Lot of interest has been generated in this type 
of word-processing because it is more convenient 
for some business (e.g. tcurism) to work in this 
way. 

In addition to a model 100, you also may use one 
of these other popular portable computers: 

Casio EP 200 
NEC pc 8201A 
Olivetti M10 

PC 1500 (Sharp, with RS232) 



In order to be able to transfer data between a 
COMMODORE 64 with BLIZTEXT and a portable computer 
(or any other computer), you need an RS232 
interface which works with TTL-Level signals (5V], 
300 Baud transfer rate, 7 bit wordlength, even 
parity, 1 stop bit, and two or three wires for 
transfer without handshaking. 

What is the difference between a two and a three 
wire RS 232 connection? If we only want to send 
data in one direction, we only need two wires, 
SIGNAL and SIGNAL GROUND. 
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The following signals are needed from the RS232 
interface: 


1. For sending data from the portable computer to 
BLIZTEXT: 


Portable Pii 


Transmit o 
DATA 


C-64 
1 /6 7404 


-o—*—o 


{>—c 


Pm 

B 


GND O 


RS232 Connector 
to Model 100 


-o- 


—-o- 


-o 


User Port 

C-64 


2. For sending data from BLIZTEXT to the portable 
computer: 

C-64 
1 /6 7404 


Pin 

3 

Receive o- 
DATA 


O- 


-o 


< 1 - 


Pin 

-O M 


7 

GND O -- O-O---O N 

User Port 
C-64 

When only two wires are used they must be 

connected to ground {GND] and RECEIVE DATA or 
SEND DATA. 

If three wires are used, they must be connected to 
GND, SEND DATA, and RECEIVE DATA. 

The following signals maybe used with the 

handshake mode: 

1. ] Data Terminal Ready 

2. ] Data Set Ready 

3. ) Request To Send 

4. } Clear To Send 

In our case you don't have to connect these. Text 
maybe entered into the model 100 (NEC and Olivetti 
are similar) in the following manner. 

1.) Turn computer on and select text editing mode. 
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2. ) Check that enough memory is available. If not, 
go to BASIC and use the "KILL” command to DELETE 
alL unneeded fiLes. 

3. ) After entering your text mode, enter the name 

of the text file. The name should be the file with 
the text to be saved. The ModeL 100 will add ,, D0 n 
to that name automatically. 

4. ) Check the manual for further details. 

5. ) After text has been entered, press function 
key "F8 ,f to terminate. 

6. ) This brings you back to "MENU 11 and the text is 
stored for future use. 



(till 


This text can now be sent to your COMMODORE 64 via 
a cable (see instructions above) or via a modem 
and the phone line tc another location. 



1. Transfer of text from Model 100 into BLIZTEXT. 


Select RS232 mode using the STAT function: 

3 8 N 1 E 

3 = 300 Baud . 

8= 8 Bit Word.: : : : 


N= no Parity Check. • • 

1 = 1 Stopbit.. : 

E= Enable .. 

Select the terminal mode on the Commodore-64. This 
is done by placing the cursor at the beginning of 
the text with "HOME". Then go to the command line 
with "CTRL-A". Enter "TO" and ,f CTRL-A n twice to 
terminate the command line. You are now in the 
terminal mode of BLIZTEXT and a different cursor 
should appear on the screen. 

Press RETURN and then the FI key. Be sure that you 
depress the FI key only once. This key works Like 
a flip-flop. You would switch off if you would 
press it a second time. The function of this key 
is to allow you to store (keep) received 
information. If the switch is off, then the 
information received in the terminal mode is 
displayed on the screen but not stored. If the 
switch is in the on position, then the information 
received is displayed and stored, so that it can 
be edited, or printed, or saved later with the 
wordprocessor. This will allow you to save only 
parts of the information received while omitting 
out less important information. When you enter the 
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terminal mode this key is in the off position. 

Now your C-64 is ready to receive text. To prepare 
the TRS-80 model 100 for sending, we select the 
TELECOM mode and press function key F4. Next, 
press F3 for upload. The file to be sent has to 
be in the computer as a DO file. Enter the name of 
the file with the width of the output. This maybe 
any value up to 254. The Model 100 will start 
sending information and we should be able to see 
the text received by the C-64 on its screen. 

When the transfer is finished, press F8 on the 
Model 100 and DISCONNECT it. On the C-64, press FI 
to terminate the storage and SHIFT-F1 (=F2) to 
return to the edit mode of BLIZTEXT. You should 
now see the text received. 


We have tested the procedure described above and 
found it to work very well. We also have done a 
transfer from an ATARI 800 via the RS232 interface. 
A transfer via a modem and the telephone system is 
also possible with the terminal mode of BLIZTEXT. 


Since the terminal mode of BLIZTEXT allows you to 
upload and download, it is also possible to send 
information from the C-64 to the Model 100 or 
another computer. 

The following figure shows how to connect Model 
100 and C-64. 
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UPLOADING TEXTFILES fro 
into Blizttxt Wordprozcstor on 
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2. Transfer of textfiles from C-64 to Model 100 


If you have entered text into your C-64 with 
BLIZTEXT, we can send this text either formatted 
or unformatted to the Model 100. 

The C-64 must be prepared first. Place the cursor 
at the position in the text that you want to send. 
If the entire text should be sent, press HOME. 
Next, go to the terminal mode by entering CTRL-A 
TO CTRL-A CTRL-A.I0=zero] 

The Model 100 must be prepared to receive 
(download). Select the TELECOM mode from the menu 
and press F4 for terminal mode. Next, press F2 for 
download (send information into the Model 100). F4 
allows you to switch between half and fuLL dupLex 
mode (we select half duplex). After F2 has been 
entered, enter the name under which we want the 
text received to be stored. If F2 is pressed 
again, the download will be terminated. 

Once the Model 100 is ready to receive, press F3 
on the C-64 to start the Model 100. After the 
download is finished, press F8 on the Model 100, 
after which you will get the display 'DISCONNECT 
? '. Enter 'Y 1 here. Pressing F8 again brings us 
back to the menu, where we should be abLe to see 
the new file with the extension 'DO', which was 
added automatically. 

Since the Model 100 contains a simple 
wordprocessor, we are able to edit the received 
text. To do so, select the textmode and enter the 
filename. The text is now available for editing. 
It may also be sent back to the C-64. If you want 
to print the text on a printer hooked up to the 
parallel interface, enter SHIFT-PRINT. 

The following is an example of how these 
applications maybe used in the business world. A 
businessman could prepare his correspondence and 
price lists using his BLIZTEXT word-processor at 
home. This text could then be transferred to a 
portable Model 100 which he could take with him 
while calling on clients. This text could also be 
transferred to the client's printer. If the need 
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arose, he could alter the text by utilizing the 
mini-wordprocessor built-in to the Model 100. If 
new input text is required from his home or 
business, it can be sent via the modem and the 
telephone. 
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NOTES 




Simple Wortprocessor 
for C-64 


This program will turn your Commodore 64 computer 
into an inexpensive wordprocessor. It is simple, 
effective, and will meet any of your writing 
needs. 

This program work with disk only. 

After you have typed in the program, start it with 
RUN. To enter new text at the beginning, start with 
"n" for "new text input". Press the <SHIFT/LOCK> 
key for lower case. Text can now be entered. 

Never hit RETURN while inputting text! - NEVER- 
To delete text, use the <INST/DEL> key.Terminate 
the input mode by pressing the "£" key. This key 
work only in the upper case mode. 

To edit text, select the edit mode in the menu. 
For corrections or for inserting text use the 
cursor key. Move the cursor so that is over the 
word you want to change or delete and hit the up 
arrow key.<t> 

Enter your new text or the corrections. When 
finished type the <£> (british pound sign). The 
new text or the corrections are now inserted.To 
delete text, insert spaces. 

To get back to the menu, move the cursor to the 
end of the text. To enter new text, type "N", to 
return to menu, type "Y". The < £ > key will 
return to the menu also. 

If you print from the screen, do not enter more 
than 20 lines per page. 
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20 POKE33280,11 : P0KE53281, 11 : PRINTCHRf<5)0 


HR# < 14 ) CHR#< 8 > 

100 DIM T$ <32 >:P0KE33272,23:Z#=" 
-* :J$=" 

110 PRINT"□a SIMPLE WORDPROC. ■ 
"BVTE FREEXmm 

120 PRINT"DO YOU WANT TO SESDIT 


< -20 spaces 


" FRE < 0 > 

text? " 


130 PRINTSPCX15)" SLSOAD FROM DISK. 
149 PRINTSPC(15)" EBfflVE ON DISK. 


150 PRINTSPC< 15> " SPRINT ON DEV. <4,4) 

160 PRINTSPC<13>" aOBUTPUT ON SCREEN. 

170 X#=" OR SNRW TEXT INPUT" ; 


GOSUB240 : IFC#="E"GOTQ630 
180 IFC#-"L"GQTQ955 


190 IFC$="S"GOTO1040 
200 IFC$“"P"GOTO700 


210 IFC$="N"GOTO670 
220 IFC#<>"0"GOTO110 

230 PT=0 : LL-20 K*40 : N=K = S$=" " ’■ GOTO800 

240 PRINTX$+"?" '■ GOTO260 

250 PRINT"JUS PRESS SPACEBAR " 

260 POKE 198,0 ■ Wfl IT 198, 1 : GETC# '• PR I NT " T J : RE 


TURN 

270 X*-"" : J-0'-REM #CRSE REVERSAL* 

280 GETCf:IFOf— ""THENPRINT"»"CHR#<157>" 

HR# <157); GOT0280 

290 IFC#="£"THENRETURN 


"C 


300 C=ASC<C#> : IFC>64ANDC<91 THENC=C+256 
310 I FC> 127THENC SS C~ 128 

320 L-LEN<X#> : IFC-l30RC-17QRC-180RC-290R<C 


-20RNDL-0)GOTO280 
330 IFC*20GOTO370 

340 C#*CHR# <C)•PRINTC#; =X#=X#+C# : IFC-34THE 


NPRINTCf "II 11"; 

350 IFL<170GOTO280 
360 RETURN 

370 IFL-1THENX#-"" : GOTO390 
380 X#=LEFT$ < X#,L-1) 

390 PRINTCHR#<C >; ; GOTO280 
400 1-0=REM EDITLOGIC 

410 PR I NT " 71 " ■ IFKTHENPRI NT " Ha" RI GHT# < T# < K-1 

>, 20 ) 

420 PR I NT '• PR INTX# : LL-LEN < X#) -1 


118 




430 GETCT : L* 1104+1 : POKEL, PEEK <0 + 128=1 FCT* 
"T"GOTO570 

440 I FCT* " >1" THEN 1 = 1 + 1 

450 IFCT*"n"PHDI>39THENI■I~40 

460 I FCT* " ;«P" THEN I = I +40 

470 IFCT*"8"THEN1=0 

480 IFCT*""GOTO520 

490 U=RSC < CT > = I FU~ 13THEN 1 = 191 

500 IFU=20THEHG0SUB540■GOTO410 

510 I FCT* " II" THEN I * I -1 : IFI COT HEN I -0 

520 POKEL,PEEK<O-128 =IFI>LLTHENRETURN 

530 FOR J»0TO9 '• NEXTJ : GOTO430 

540 LT=" " = IFITHENLT*LEFTT<XT .• I > 

550 RT=""=IFI<LLTHENRT=RIGHTT<XT,LL~I> 

560 XT*LT+RT : RETURN 
570 GOSUB540•GOSUB270 

580 IFLEN <LT>+LEN<X*>+LEN<RT > <171THENXT*LT 
+XT+RT : GOTO410 

590 FORJ*32T0K+2STEP-1 : TT<J> =TT< J~ 1>:NEXTJ 

600 J=LEN<RT)+LEN<XT>-170:IFJ>0THENLT*LT+L 
EFTT < XT, J > '• XT=R IGHTT < XT, LEN < XT ) - J > 

610 TT < K+1 > *XT-+RT = XT=LT ■ G0T0410 

620 POKE 1,23 : POKE 1620 = Wfi IT162, 16 = RETURN 

630 REM ** EDITING PROGRAM ** 

640 FORK*0TO31 : IFTT < K > >< " " THENXT=TT < l< > : GOS 
UB400 • TT < K > *XT '• NEXTK = G0T0110 
650 PR I NT " riSJPTH IS IS THE END . " = XT* " J!I?E AD V 
? "=GOSUB240=IFCT*"V"GOTO110 
660 GOTO680 

670 K=0 : REM ** WRITE PROGRAM ** 

680 XT=TT<K) : GOSUB270 = TT<K>=XT■IFCTO"£"AN 
D K <31THEHK=K+1=GOTO680 

690 FORJ*l<+1T032 : TT <J >=""=NEXTJ:GOTO110 
700 REM **PRINT LOGIC** 

710 XT*"NUMBER OF SPACES IN TAB" : GOSUB240 
720 TT*" SI" = IFVAL<CT>THENTT*LEFTT<ZT, VAL<C 
TO > 

730 PT“0 : XT* "ON CSISBCREEN OR SPSS? I NT 

ER" : GQSUB240=IFCT*"P"THENPT*1 
740 US*0=XT*"DOUBBLE LINE SPACE ":GOSUB240 
:IFCT*"V"THENDS*1 

750 N=40*<1+PT> = IFPTTHEN0PEN4,4 = GOTO770 
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760 INPUT"LINES PER PAGE ";LL 

770 INPUT "CHARACTERS PER LINE " 1 K = PR I NT " LI 


II 


780 N = < P T +1 > %40 : IFK>NTHENPRINT " '.ST00 MfiNV C 
HARACTERS"■9oto770 


780 ST= ” " : I FK.-CN” 1 THENSf “LEFTT ( ZT .■ < N-K > X2 > 
800 TF“0 • L= 1 = X $ - " " : FOR J=0TO31 : XT=XT+TT < J '> 

810 IFTFTHENXT=TT+XT•TF=0 

820 M=LEN<XT)=IFASC<XT>=32THENXT=MIDT(XT,2 
;:i : GOT0820 

830 IFJ<31ANDM<KTHENNEXTJ 

840 FORU* 1TOK '• IFMIDT ( XT, U, 1 > = " T" THENTF* 1 = G 


OTO870 

850 NEXTU IF J*31ANDM<=l<G0T0940 
860 FORU=KTO1STEP-1•IFMIDT< XT,U,1>O" "THE 
NNEXTU = PR I NT " IldMTOO LITTLE " : GOTO770 
870 LT="":IFU>1THENLT=LEFTT(XT,U-1> 

880 RT="":IFU<MTHENRT=RIGHTT<XT,M-U > 

890 IFDSAND <PT=0)THENLT“LT+CHRT(13 > 

900 IFDSANDPTTHENLT*LT+CHRT(12> 

910 XT=RT:IFPTTHENPRINT#4,CHRT<17),ST+LT:G 
OTO810 

920 PR INTST+LT = L.«L+1+DS : I FL>LLTHENL= 1 '• GOSU 
E250 

930 GOT0810 

940 I FPTTHENPR I NT#4, CHRT < 17 ) , ST+XT : CLOSE4 ’• 
G0T0110 

950 PR I NT ST+XT : GOSUB250 '■ GOTO 110 
955 REM 

960 0PEN2,8,2, " @0 '■ TEXT, S, R " 

970 J—0 
980 1*0 '• AT=" " 

990 GET#2,CT■IFCT="£"THEN CT*"":GOTO1022 
1000 AT=AT+CT : 1=1+1 

1010 IF I =32 THENTT < J > =AT '• J* J+1 = GOTO980 

1020 GOTO 990 

1022 AT=AT+CT=1=1+1 

1024 TT(J> =AT 

1030 CLOSE 2=GOTO 110 

1035 REM ZT=MIDT <TT <J),Z,1) 

1048 REM 

1050 OPEN 2,8.. 2, " @0 : TEXT.. S, W " 

1060 FOR. 1*0 TO 32 
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1070 IF T:f a THEN GOTO 1100 
1080 F'R I NT#2 .• Tf (. I > 

1030 NEXT I 

1100 PRINT#2,"£":CLOSE 2 
1110 GOTO 110 
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THE PROGRAMS FROM THIS BOOK ON A DISK. 

Use this page as an orderform 


D All programs on disk US $29.95 

□ BLIZTEXT 1.1 - SUPER WORDPROCESSOR for the Commodore-64 US $89.00 

BLIZTEXT 1.1 

— Fully screen-oriented, up/down, left an right scrolling — Upper and lower case. 

— More than 70 commands. 

— Full I/O compatibility with Commodore peripherals Upper and lower case. 

— Works with practically every printer on the market, user definable printer control 
commands. 

— INCLUDE command allows handling large files on up to 4 diskettes or on cassette. 

— Build in terminal software for electronic mail an networking. Telecommunications 
mode, upload and download, save on disk or cassette. 

— Dynamic formatting, Imbedded commands. 

— Single keystroke for disk directory and error channel. 

— Program comes on disk or cassette. 

— Double line spacing, left and right margin justification, centering, page numbering, 
and practically everything one expects from a good wordproressor. 

— Calculation functions. 

Order No. 4965 $89.00 

Manual only (62 pages) $29.95 

BLIZMERGE - program Order No. 4945 839.00 



Name: (please print) 


Address 


City/State/Country/Code 


Ask your local dealer or mail it to one of these addresses: 


ELCOMPPublishing, Inc. 
53 Redrock Lane 
Pomona, CA 91766 
USA 

Phone: (714) 623-8314 
Telex : 298191 


ELCOMP Computer (S) Pte Ltd. 
89 Short Street 

Unit 03-07, Golden Wall Auto C. 
Singapore 0718 
Phone:3382623, 3388228 
Telex: 22456 


Payment in US funds only: Check, money order, VISA, MASTER CARD, Euroekeek, 
ACCESS, Interbank. 

Prepaid orders aid $ 3.50 for shipping (USA), $ 5.00 handling 
for C O D 

All orders outside USA: add 15% shipping, California 
residents add 6 5% sales tax. 

Prices are subject to change without further notice 1 
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HARDWARE ADD-ONs SUPERBOOKS 


for your C-64 
Parallel printer interface, driver 
Order-No. 4990 $19.95 

Universal Experimenter Board 
Order-No. 4970 $9.95 

Expansion Board (holds 4 exp. boards) 
Order-No. 4992 $29.95 


SOFTWARE 
for your C-64 

MACROFIRE — Editor/Assembler for 
the Commodore-64 

The best macroassembler you can buy ! 


Order-No. 4963 $89.00 

BLIZTEXT 1.1 - Word processor 
Order-No. 4965 $89.00 

BLIZMERGE 

Mailing list program which merges 
testfiles form Bliztext. 

Order-No. 4945 $39.00 


for your C-64 

The Great Book of Games, Vol. I 
64 programs for the Commodore-64. 

Order-No. 182 $9.95 

Programs form this book on disk $19.95 

MORE ON THE SIXTYFOUR 

Tips, tricks, hints, very important 
subroutines. 

Order-No. 182 $9.95 

Programs form this book on disk $19.95 

HOW TO PROGRAMM YOUR C-64 
in 6502/10 Machine Language 

Introduction to Machine Language for 
the BASIC Programmer. 

Order-No. 184 $12.95 

Programs form this book on disk $19.95 

Commodore-64 Tune-up, Vol. I 

How to expand your C-64. 

Order-No. 185 $12.95 

Small Business Programs for the C-64 
Order-No. 186 $12.95 

Programs from this book on disk $29.95 


MACROFIRE - 

Editor/Assembler for the Commodore-64 

ON SALE NOW 
AVAILABLE IMMEDIATELY 

One outstanding tool, consisting of 3 powerful elements combined into 
one efficient program ! 

1. Fully screen-oriented Editor (more than 70 commands) 

2. Very fast assembler with macro capability 

3. Machine Language Monitor 

Assembly can be started from the editor. Translates in 3 passes. More than 
1,000 lables, screen oriented/no line numbers, scrolling, includes disk files. 
Practically everthing the serious machine language programmer needs every¬ 
day ! 

Manual only Si 9.95 

Order-No. 4963 $89.00 
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